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ous avez vu la couverture ? THEORIC n° 20 déjà ! Que de chemin parcouru depuis notre numéro 
1. Certains donnaient l'ORIC pour mort et tout semble démontrer le contraire : 

- un pavé numérique et commercialisé depuis peu par la société ICV : c'est le CALCULATOR, 

- les premières commandes de TELESTRAT sont enregistrées par EUREKA : l'ordinateur épouse la télématique, 

- quant à nous, SORACOM, nous continuons à marquer notre confiance envers ce produit en sortant le livre "L'ORIC 
A NU" que tout programmeur averti doit posséder. 

Et vous, les utilisateurs ? Ça va bien, merci ! La preuve ! Tous les bons articles et programmes qui nous parviennent 
à la rédaction. De quoi alimenter les prochains numéros... 


AVEZ-VOUS 

LA 

COLLECTION 

COMPLETE 

DE 

THEORIC ? 



COMMANDE ANCIENS NUMEROS 



(valable jusqu'à épuisement des stocks) 


Numéros.30 F pièce 

Numéro 11 (Hors Série).'.25 F pièce 

ATTENTION : NUMERO(S) EPUISE(S) : 1.2.3.5 

NOM ..Prénom . 

Adresse . 

Code Postal .Ville . 


Frais de port : 6,50 F jusqu'à 2 exemplaires 

9,50 F jusqu'à 4 exemplaires 
13,50 F jusqu'à 6 exemplaires 


|Ci-joint, chèque bancaire ou postal de 
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Les articles et programmes que nous publions 
dans ce numéro bénéficient pour une grande 
part du droit d'auteur. De ce fait, ils ne peu¬ 
vent être reproduits, imités, contrefaits, même 
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Courrier . 6 

Banc d'essai Calculator . . 7 

Disquettes ; abonnement . 8 

Ecran mixte. 10 

Puissance 4. 12 

La pile . 19 

Le programme mystérieux 21 

Recopie d'écran 

FASTEXT 80.22 

Valoctet .25 

Colditz .32 

Le miroir sphérique.34 

FORTH .38 

Mini-interpréteur .40 

Classement instantané . . . 44 

Utilitel . 47 

Trucs et astuces. 55 

Les pieds dans le plat . . . 56 

Petites annonces . . .58 




• Une ligne téléphonique est à votre disposition, vous met¬ 
tant en contact direct avec la rédaction. Ceci est un ser¬ 
vice sans égal ! Respectez simplement les horaires et les 
jours que nous vous indiquons : 

MERCREDI de 9 h à 12 h et de 14 h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé : ne 
dépensez pas inutilement votre argent ! 


Théorie? 


99.53.98.T V. 


Le numéro 
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REVENDEUR AGRÉE ORIC EUREKA 

ouvert du mordi au samedi de 9 h 30 à 12 h 15 et de 14h30à 19 h 15 
130, ROUTE DE CORBEIL - 91360 VILLEMOISSON-SUR-ORGE 
Tél. (1) 69.04.04.50 


I.C.V. A L’AVANT-GARDE DES NOUVEAUTÉS 





— Lecteur esclave 3 "1 /2 

— Double têtes 

— Double densité 

— Alimentation 220 volts 

— Cordon de raccord 

— Compatible MICRODISC/JASMIN 2 

1990 F 


— 14 touches (0 à 9), le point, 

DEC, FONCTION. ENTER 

— I prise joystick 

(fonctionne sur les 4 flèches et la barre 
d'espacement), compatibilité assurée sur 
75% des jeux. 

490 F 


64 Ko de RAM (extensible) 
48 ko de ROM (extensible) 
CARTOUCHE HYPER BASIC 
CARTOUCHE TÉLÉMATIC 
Lecteur disquette 3 pouces 
Câbles, manuels 

3990 F 


NOUVEAUTÉS DISPONIBLES ET 



• TELESTRAT 64 K . 3990 F 

• ATMOS 48 K . 990 F 

• Moniteur couleur . 2750 F 

• Moniteur monochrome vert HR 12 1150 F 

• Imprimante MCP40 plotler 

4 couleurs . 990 F 

• Imprimante BROTHER 1009 . 1995 F 

• Option picots BROTHER 1009 .. 350 F 

• Lecteur disquettes SEDORIC 

(maître) . 2490 F 

• Lecteur disquettes (auxiliaire) .... 1490 F 


ACCESSOIRES 


• Modulateur noir et blanc UHF .. 295 F 

• Modulateur couleur UHF . 495 F 

• Câble pour imprimante parallèle 150 F 

• Rouleau papier MCP 40 . 18 F 

• Rame papier imp 80 (SOOF) ... 79 F 

• Bloc Oric 9 volts . 150 F 

• Joystick type Quickshot I . 95 F 

• Disquette 3,5 pouces (MAXELL) .. 25 F 


Revendeurs, nous consulter 


LOGICIELS 

NOUVEAU : T B.D (5 utilitaires sur disquettes 

Sedovic). 250 F 

T.B.D - Transfert K7 vers disquettes 
CAT • Transfert TDOS vers Sedoric 
DTR - Dump mémoire en temps réel 
DD Test piste défectueuse 
RTP ■ Répare une piste défectueuse 

+ de 70 titres en magasin 

ICV distributeur de la revue THEORIC 



I.C.V 130, Roule de Corbeil - 91360 VILLEMOISSON SUR ORGE 


NOM . 

DÉSIGNATION 

Qté 

P. U 

P. T 

PRENOM : . 





ADRESSE ■ . 





Code Postol : . 





VILLE • . 





TÉL - . 










I — 30 F pour achats inférieurs à 500 F 

1 Frais de Port — 50 F pour ochats de 500 F à 1000F 

1 _ 70 P no■ ir /vKnlc Ci mâriûi ir /"i lfWl P 

Frais de Port : 
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TOTAL 





t/ARD OMton* 99 3» 64 73 • 


























































-courrier_ 

Jean-Louis JAROUSSE 

Le bus de l'ORIC est déjà bien 
chargé lorsqu'on le connecte au 
Jasmin ou au Microdisc. Le relier, 
en plus, à la carte série décrite 
dans THEORIC peut poser des¬ 
problèmes : le système s'initialise 
mal ou les programmes ne se 
chargent plus. Pour y remédier, 
une simple astuce : mettre un 
interrupteur sur le + 5 V alimen¬ 
tation de la carte série. Cet inter¬ 
rupteur sera sur OFF pour char¬ 
ger les programmes ; vous le 
mettrez sur ON avant de faire 
RUN. C'est simple et efficace. 


Frédéric TARAUD répond à 
Patrick MERCIER (THEORIC n° 
16) 

Pour faire fonctionner la carte 
série dans Micro et Robots, il suf¬ 
fit de relier par un petit pont de 
soudure les pattes 1 et 2 du 
7427. 

Cette liaison, figurant su r le 
schéma de principe, a été oubliée 
sur le circuit imprimé. 


Alain FERNANDEZ 
30 CHUSCLAN 

Un ami m'a prêté un drive APPLE. 
Puis-je te connecter au contrôleur 
Jasmin de l’ORIC ? 

Le JASMIN peut être utilisé avec 
des drives 5" 1 /4 à condition que 
ceux-ci soient à la norme Shu- 
gart. Cette norme définit des 
temps d'accès, vitesse de rota¬ 


SON VIDÉO 

2000 

MICRO 
AQUITAINE 

AMSTRAD 3RIC 

THOMSON O 

Çz commodore 

31, cours de l'Yser 
33800 BORDEAUX 

Tél.: 56.92.91.78 




’TUéciïfc' 

Çidî-hoiYZ SoRACoH 
Is Mae, dh fëh 
Î&'IO Ç>RUZ- 


tion, etc. ainsi qu'un certain ordre 
pour le brochage des connec¬ 
teurs. Si votre drive répond à 
cette norme, il pourra être piloté 
par le contrôleur Jasmin. Hélas, 
dans les drives "compatible 
APPLE", c'est peu souvent le 
cas ! 


Patrick CHANTEREL 
92 VANVES 

A quand le Pascal sur ORIC ? 
Pas de réponse à cette ques¬ 
tion... Nous doutons que ce lan¬ 
gage soit un jour implanté sur 
notre machine favorite, vu la 
désaffection des principaux gros 
éditeurs de logiciels pour ORIC. 



clubs 


BERGERAC compte un club de 
micro-informatique (en dehors 
des. écoles) qui fonctionne selon 


la loi de 1901 sur les associa¬ 
tions : 

Son nom : MICRO 24. 

Adresse du siège : 6, Allée André 
Levèque, 24100 BERGERAC. 
Adresse des réunions : 18 rue de 
la Résistance, 24100 BERGERAC 
(tous les jeudis à partir de 
20h30). 

Matériels utilisés : AMSTRAD 
(464 et 61 28), ORIC (ORIC-1 et 
ATMOS), APPLE (APPLE Ile et 
MACINTOSH), THOMSON 
(M05). 

But : réunir tous les fervents de 
la micro-informatique afin de par¬ 
tager des idées, de développer en 
commun, etc. Les mordus qui ne 
se connaissent pas encore sont 
attendus afin de leur inoculer le 
virus. 

Président : T. BRUNET. 


Progiciels 
de gestion 
sur ORIC 
clavier Atmos 
et lecteur 
Jasmin Duo 
2 x 360 k 

M. MISSUD 

Tél. 94.91.47.01 
' le Chambord' Bld de Paris 

83200 TOULON 
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CALCULATOR: 




M ous vous présentions en exclusivité, dés se sortie sur le mar¬ 
ché, le pavé numérique "CALCULATOR" conçu et commer¬ 
cialisé par la société CV. Depuis, nous avons eu l'occasion 
d'en effectuer l'essai : voici nos impressions. 


CALCULATOR est livré avec une 
petite feuille "notice" destinée à 
faciliter son branchement sur 
l'ORIC. Rappelons, pour ceux qui 
n'auraient pas lu notre précédent 
article, que CALCULATOR est un 
pavé numérique proposant, en 
plus, une touche "FUNCTION" 
qui sera bien vue par tous les pos¬ 
sesseurs d'ORIC-1 et une prise 
JOYSTICK. L'idée est bonne, et 
tous ceux qui utilisent habituel¬ 
lement leur matériel pour saisir de 
longues séries de nombres (que 
ce soient des DATA ou des 
valeurs numériques de leur bud¬ 
get prévisionnel) trouveront bien 
pratique cette nouvelle "exten- 



ECRAN PLAT SUR ORIC 


L'idée était séduisante, n'est-ce 
pas ? Elle n'aura pas vécu long¬ 
temps, et c'est dommage ! Il est 
vrai que, à 700 F, la société SOLE 
aurait eu bien du mal à fabriquer 
cet écran. 

Toutes nos excuses aux lecteurs 
qui ont mordu à l'hameçon... 
Mois d'avril oblige... Le canulard 
était gros et pourtant ! 


sion". 

CALCULATOR n'a immobilisé ni 
le bus d'extension, ni la prise 
imprimante, pour le connecter à 
l'ORIÇ, il suffit d'ouvrir la 
machine et de brancher, sur le 
clavier, le connecteur situé au 
bout du câble du CALCULATOR. 
En règle générale, cela ne posera 
pas de probème, mais, néan¬ 
moins, tout a été prévu pour les 
autres cas. 

Sur notre ATM OS, la greffe a été 
aisée : après avoir ouvert la 
machine, il suffit d'enfiler le 
connecteur sur celui du clavier. 
Sur certains modèles d'ATMOS 
ou d'ORIC-1, il faudra changer ce 
connecteur clavier. Cette éven¬ 
tualité a été prévue et un connec¬ 
teur est livré avec le CALCULA¬ 
TOR. Cela implique de savoir tenir 
et utiliser proprement un fer à 
souder. Si ce n'est pas votre cas, 
contactez votre revendeur qui 
effectuera, ou fera effectuer par 
un technicien, la petite transfor¬ 
mation. 

Le câble ombilical qui relie le CAL¬ 
CULATOR à l'ORIC passe par la 
découpe du connecteur impri¬ 
mante. Nos craintes ont été vite 
dissipées : cela n'empêche pas 
de brancher l'imprimante. Quant 
à l'adaptation sur le TELESTRAT, 
pas de problème, elle a été pré¬ 
vue I 

L'utilisation du CALCULATOR est 
bien agréable, surtout lorsqu'on 
est habitué à travailler sur un cla¬ 
vier de machine à calculer ; la sai¬ 


sie de listes de nombres n'est 
plus une corvée. Si, de plus, vous 
avez la chance de posséder un 
MICRODISC et son SEDORIC, 
vous découvrirez alors toute la 
puissance de CALCULATOR, 
grâce à la pleine utilisation de la 
touche FUNCTION I 
Dernier point : le prix. Vu l'inté¬ 
rêt porté par les utilisateurs 
d'ORIC au CALCULATOR, la 
société ICV a décidé de baisser 
son prix de 590 à 490 F. Quand 
on sait que le CALCULATOR est 
équipé de touches professionnel¬ 
les, à contacts dorés, il semble 
difficile de faire mieux, surtout si 
l'on considère la présence de la 
prise joystick I 

Maintenant, qu'on l'a, on le 
garde ! 



Dans l'excellent programme 
"LEONARD" s'est glissée une 
erreur vicieuse... Prenez votre 
listing (programme "MENU") et 
ajoutez au stylo rouge une ligne 
435 L = L+ 10. 

Maintenant, l'ordinateur ne vous 
sortira plus bêtement "Erreur en 
ligne 10000" mais bien sûr la 
ligne concernée. 

Merci Philippe LAFORGUE I 
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ABONNEZ 


VOUS 





Prénom 

nom .. 

Adres»® . vi"e . 

|Code Posta' Signature . 

Pay J . . M ut« fo1 ^- 

A* onn *ÜÜÜÎ 6 n»oU • * * m ' 4 tropoH»°‘ n# 

l Abonn#w»n» f r c»nc» . 

^bonn»w , * n * " . --1 

Tarif avion ^ ^ ^ — 
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LES DISQUETTES DE THEORIC 


Tous les programmes de THEORIC, groupés par deux numéros sur une disquette. Plus de perte de temps 
pour les taper... Existe pour le moment en JASMIN seulement. 


Le prix : 135 F pour les abonnés (joindre impérativement l'étiquette), 165 F pour les autres. 
Avertissement : les programmes stockés sur ces disquettes sont tels que parus dans THEORIC. A vous de les 
adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. 


N° 
N° 
N° 
N° 
N° 
N^6 
N° 7 


THEORIC n° 

THEORIC n° 

THEORIC n° 

THEORIC n° 

THEORIC n° 

THEORIC n° 

THEORIC n° 

N°a THEORIC n° 

N° HS THEORIC HORS SERIE 

( n ° H) 


4 et 5 
6 et 7 
8 et 9 
10 et 12 
13 et 14 
15 et 16 
17 et 18 
19 et 20 


VOLUME : T019&20 


U LE0RIC1 .BAS S 


74 SECTORS 







U 

TABLEAU;. BAS 

C 

9 

t SEC T 0PS 

U 

EUROPE 

.BAS 

5 

52 5£C T 0R‘ 

J 

INTERPRE.BAS 

s 

35 SECTORS 

U 

BULLELM 

.BAS 

s 

6 SECTORS 

_ 

MYSTERE .PAS 

S 

16 SECTi-RS 

U 

MIROIR 

.BAS 

5 

I« SEIT. RS 

J 

PWSSAM.BAS 

S 

:5 SECTORS 

U 

DEUXSPHE.BAS 

5 

0 SEC OR: 

U 

ECRAMIXT.BAS 

s 

5 SECTORS 

U 

RwSED 

.SAS 

C 

4 SECTORS 

•J 

FASTEXSO.BIN 

Z 

3 SECTORS 

U 

DUMF 

.BAS 

5 

■ SE-.TORS 

U 

UTILIDAT.BA5 

s 

10 SECTORS 

: 1 

CHECSEC 

.BAS 

5 

5 SECTO e S 

y 

UTILI TEL.BIN 

s 

3 SECTORS 

U 

COMPTE 

.BAS 

S 

iS 5tC '>': 

U 

UTILITE!.. BAS 

c 

20 SECTORS 

•J 

FENETRE 

.BIN 

5 

18 5ECT 

ci 

VALOCAT .BAS 

s 

14 SECTORS 

U 

UTILt 

.BAS 

s 

14 SE-CTOP.- 

U 

VAL0CT01.BAS 

s 

8 SECTORS. 

U 

LOGO 

.BAS 

s 

!A ScC S S 

U 

MENULE01.BIN 

5 

10 SECTORS 

U 

MININTER.BAS 

c 

7 SECTORS 


59 SECTORS 



U 

CODASC 

. BAS 

w 

o SEC ". R; 


iEF 



BON DE COMMANDE 
DES DISQUETTES THEORIC 


Je commanda lai disquettes 12345 HS 678 
Ci-joint : 135 F par disquette et mon étiquette abonné 
165 F par disquette car je ne suis pas abonné 


Soit au total la somme de 
que ci-joint. 


F réglée par ché- 


NOM .Prénom. 

Adresse. 

Code Postal .... Ville .■ 
























20, rue de Montreuil - 94300 VINCENNES - (1 ) 43.28.22.06 

du mardi au vendredi :10h30à13h-15hà19h — le samedi : 10 h 30 à 19 h 


REVENDEUR OFFICIEL AGRÉÉ ORIC-FRANCE 



SYNTHÉVOC 1 


K> 


[snM nsa*' 

I ’ C C M ml*U S M 


"Il ne lui manque que la parole", synthé. V0C1 la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
campagne ! r 

□ synthétiseur vocal 33U 


l\ \ 


MODEM 

Votre ORIC s'ouvre sur l'extérieur. Il "discute" 
avec ses semblables et accède au réseau “minitel" 
Fourni avec interface intégrée et logiciel 
□ modem 1490 F 



Interface tous jeux 

Grâce è cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de jeux. 
□ interface tous jeux 360 F 


Rallonge Péritel 
Ne soyez plus "collé" à l'écran ! 
□ rallonge 95 F 


M 


\ 




Interrupteur 
Ne courrez plus le risque de faire sauter la ROM 
U interrupteur d alirnentation 85 F 



Grâce à cet interface vous pourrez brancher jusqu'à 3 appareils 
en sortie péritel sur votre moniteur ou téléviseur (câble rac¬ 
cord non fourni) interface multi-péritel 495 F 

Câble péritel male-femelle : nécessaire pour connecter I inter¬ 
face multi-péritel il peut aussi être utilisé comme rallonge 
péritel pour tout appareil. 

□ rallonge péritel (1.20 m) 235 F 



Imprimante Smith Corona Fastext 80 
- 80 caract./sec., impression bidirectionnelle, 
entrainement par friction, interf. contronic. buffer 
intégré, écriture normale ou condensée 
□ Fastext 80 .1995 F 


Magnétophone 

Ce magnétophone spécialement conçu pour les 
micro-ordinateurs vous évitera bien des soucis. 
Entrée OIN ou Jack. Niveau réglable. Témoin 
sonore et lumineux. Alimentation intégrée 



JASMIN 2 



Le lecteur de disquette que votre Oric préfère. 
Permet, entre autres, de recopier sur disquettes 
les logiciels (même plombés) sur cassette. 


□ lecteur double tête 2.490 F 





□ 2 titres 

145 



□ 3 titres 

195 

iOMOTION : 

dans la liste ci-dessous 

□ 4 titres 

220 



□ 5 titres. 

.250 



□ 10 titres 

395 

□ arsène lapin 

□ ghastman 

□ lone raider 

□ rat splat 

□ basic étendu 

□ hunchback 

U mushroom 

□ talisman 

□ dédal 

□ image 

□ oric mon 

□ titan 

□ défense force 

□ insect insanity 

□ pasta blasta 

□ ultimazone 

□ gest 





LOGICIELS CASSETTES 


□ 1815 . 

160 F 

□ don juan 

150 F 

□ dialogue. 

120 F 

□ 30 fongus 

140 F 

□ dossier . 

140 F 

LJ morpion. 

120F 

□ 30 maze 

100 F 

□ durendal 

120F 

□ mots croisés 

120F 

□ 3 D munch 

140F 

□ élysée . 

145F 

□ multicalc 

190 F 

□ affaire en or 

145 F 

□ facturation 

180 F 

□ mushroom maniac 

100 F 

□ aigle d'or 

180F 

□ finances 

120F 

□ oenoForic 

100 F 

□ as des as 

160 F 

□ fire flash 

120F 

□ optimum 

140 F 

□ assimil 

510F 

□ flipper 

180 F 

□ ordi-tiercé 

140F 

□ atlantis 

140 F 

□ flûte inca (la) 

120 F 

□ oric miner 

135 F 

□ basic turbo 

140F 

□ formule one 

13Û F 

□ origraph 

150 F 

□ bering 

150F 

□ frelon 

120F 

i 1 orion 

95 F 

□ bibliofiches 

120F 

□ fromage 

95 F 

□ panic. 

95 F 

□ bombyx 

120F 

□ galaxion 

95 F 

□ planette bleue 

120 F 

□ brique à brac 

65 F 

□ gengraph 

140 F 

D playground 

95 F 

□ budget familial 

135 F 

□ ghost gobbler 

100 F 

□ polyfichier 

180 F 

□ businessman 

140F 

□ godilloric 

90 F 

□ probe 3 

100 F 

□ calcul mental 

120 F 

□ gravitor 

90 F 

□ rabbit 

65 F 

□ calcul en 4 eme 

120F 

□ green cross toad 

100F 

□ rat splat 

105F 

□ calorie . 

100 F 

□ hades 

250 F 

□ rd v de la terreur 

95 F 

□ caractor 

100F 

□ hist’oric. 

100 F 

□ retour du dr genius 

160 F 

□ carnet d'adresses 

120F 

U hobbit (the) 

180 F 

□ reversi 

95 F 

□ catégorie 

95 F 

□ hopper 

70 F 

□ reverse 

90 F 

□ challenger 

130F 

□ hyperspace 4 

120F 

□ s.a.g.a. 

150F 

□cheops 

140F 

□ initiation à la cao 

180 F 

□ secret de kaipur (le) 

130F 

□ chess. 

140F 

□ intox et zoé 

180 F 

□ secret du tombeau (le) 140 F 

□ cité maudite (la) 

140F 

□ invader 

90 F 

□ Stanley 

120F 

□ clavidact 

115F 

□ invader 

100 F 

□ star. 

120 F 

□ damac (jeu de dames) 100 F 

□ karatéka 

99 F 

□ starter 

129F 

□ elephorm 

100 F 

□ kit écran 

120 F 

□ stress 

120 F 

□ elephcolor 

100 F 

□ lasvégas 

95 F 

□ styx. 

120F 

□ dialogue 

120F 

□ lièvre et la tortue (le) 

100 F 

□ super copy écran 

120F 

□ LM -+- 

110F 

□ light cycle 

50 F 

□ super jeep 

120F 

□ édit plus 

85 F 

□ locus 

95 F 

□ terminus 

120F 

□ cobra pinball 

140F 

□ logo VI. 

295 F 

□ tic tac. 

120 F 

□ cobra 

55 F 

□ lorigraph 

290 F 

□ tortue logic 

150F 

□ colorie 

95 F 

□ loritel 

395 F 

□ tour fantastique (la) 

120F 

□ compilateur graphique 250 F 

□ lotoriciel 

120F 

□ tour du monde en 80 

120F 

□ concours hippique 

70 F 

□ macadam bumper 

160 F 

□ transat one 

140F 

□ conjugaison 

120F 

□ masque d'or (le) 

149 F 

□ trésor du pirate (le) 

95 F 

□ course lettre 

95 F 

□ master paint 

250 F 

□ triathlon 

150F 

□ crypt show 

100 F 

□ meurtre à gde vitesse 

180 F 

□ tyrann 

185 F 

□ CW morse 

180 F 

□ microciel 

120 F 

□ vision 

120 F 

□ D bug 

140 F 

□ microgéo 

140F 

□ vortex 

260 F 

□ dam buster 

100 F 

□ millionnaire (le) 

120F 

□ world war 3 

95 F 

□ dao 

100 F 

□ mission delta 

95 F 

□ xénon 

100 F 

□ data’save 

120 F 

□ mission impossible 

120 F 

□ xénon 3 

105 F 

□ détective 

149F 

□ moniteur 

140 F 

□ yi king (le) 

180 F 

□ diamant ile maudite 

160 F 

□ monopolic 

160 F 

□ zoolympics 

120F 

□ lhe quill 

195F 

□ montségur 

140F 

□ zorgons revenge 

100F 


LIVRES 

LOGICIELS DISQUETTE (JASMIN) 


□ guide pratique 

78.50 F 

□ assembleur 

490 F 

□ découverte de l'oric 

95 F 

□ easy text 

590 F 

□ oric à l’affiche 

95 F 

□ multifich 

590 F 

□ oric atmos pour tous 

105 F 

□ cale 

590 F 

□ 52 prog. pour tous 

105F 

□ forth 

. 590 F 

L_. l’assembleur de l'atmos . 

95 F 

□ jasmitel 

490 F 

□ interfaces pour oric . 

59 F 

□ mathégraph 

249 F 

□ 1 oric à nu 

150 F 

□ finances 

219F 

□ programmes en lang. mach 

95 F 

□ conquérants 

219F 

□ manuel référence • tome 1 

□ manuel référence • tome 2 

..138F 
.120 F 

□ zonga 

199F 


□ magnétophone 360 F 



Imprimante MCP 40 

L’imprimante 4 couleurs aux couleurs d'ORIC ! 
□ imprimante MCP 40 990 F 


Cassettes vierges C20 

□ les 5. 45 F 

□ les 10 80 F 

□ disquette vierge 3 pouces. 35 F 


Câble Imprimante 

Vous permet de connecter votre Oric à n'importe 
quelle imprimante au standard 'centronic" 

□ câble imprimante 160 F 

Câble Moniteur 

Pour brancher votre Oric à un moniteur mono¬ 
chrome 

□ câble moniteur gsF 





L'IMPRIMANTE PERSONNELLE 
COULEUR "OKIMATE 20" 

L'OKIMATE 20 est la première imprimante per¬ 
sonnelle dans sa gamme de prix à offrir une 
véritable impression couleur. Une tète d'impres¬ 
sion à 24 éléments crée plusde 100 nuances d une 
définition et d'une netteté exceptionnelles. 
Interface centronic 

□ okimate 20 2950 F 



Esthétique, robuste, pratique le TIRVITT 2 vous séduira ! 
Contacts par micro-switches. un contacteur sous le 
socle permet le choix 4 ou 8 directions. 

□ TIRVITT 2 .150 F 



□ quickshot 2 . 140 F 



Le "rnust" pour les amateurs de graphisme. Utilisée 
par la majorité des créateurs de logiciel cette tablette 
vous séduira par sa simplicité d'utilisation et la qualité 
"top niveau" des résultats obtenus, (ex. options : faire 
des points, traits, boites, cercles, texte, remplir, "zoom"....) 
□ GRAPHISCOPE II. 1490 F 

INTERFACE PERITEL/UHF 

Cette interface vous permet de brancher tout 
appareil ayant une sortie péritel sur un télé¬ 
viseur n'ayant qu'une entrée antenne. 

□ l'interface PH 560 550 F 



L'imprimante "top niveau" en informatique fa • 
miliale 100 caractères par seconde. Papier 
normal ou informatique. Entrainement par 
friction ou traction. Si vous recherchez une 
qualité "courrier", la MT 80S vous donnera 
plus que des satisfactions tant pour le texte 
que pour le graphisme. 

□ Mannesmann MT 80S . 3350 F 


□ bloc alim. aric. 160 F 


COMMENT COMMANDER : 

- Cocher lefs) article(s) désiré(s) ou faites-en une liste sur une feuille à part. - Faites le total + frais de port (20 F pour achats inférieurs à 500 F. 40 F de 500 à 1000 F. 60 F pour tout achat supérieur à 1000 F). 

NOM : _ PRÉNOM :_ TEL :_ 

ADRESSE : _CODE POSTAL : _VILLE : _ 


Mode de paiement : □ chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 
envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 


réseau ll^t — 


Tout nos pris sont indicatils. al an fonction das stocks. 
































































































ECRAN MIXTE 

Thierry LEGAL 

S ur ORIC, l'utilisateur a le choix entre deux modes d'écran : le 
mode TEXT ou LORES qui permet d'utiliser 28 lignes de 40 
caractères, et le mode haute résolution (HIRES) qui donne 
200 lignes graphiques de 240 pixels x 3 lignes TEXT. 


Pour cela il suffit de tromper 
l'ORIC-1 (ou l'ATMOS) en jouant 
sur la synchronisation. Vous avez 
déjà, sans doute, remarqué que 
les combinaisons "ESC" + une 
touche parmi "X, Y, Z j, /, et 
DEL" provoquaient parfois des 
perturbations à l'affichage. Il y a 
deux explications à cela : la pre¬ 
mière est qu'en France on utilise 
du 50 Hz et que certains de ces 
codes font passer en 60 Hz 
(norme anglaise) provoquant ainsi 
une perte de la synchronisation 
du balayage (essayez "ESC” + 
"Z", par exemple, puis "ESC" + 
"X” pour revenir à la normale). 
La seconde explication provient 
du fait que les autres codes ser¬ 
vent à définir si on est en TEXT 
ou en HIRES et donc à indiquer 
si les octets doivent être compris 
comme des caractères ou comme 
du graphisme. 

C'est le dernier de ces codes que 
nous allons utiliser. Tapez, par 
exemple, la séquence suivante : 
TEXTiPAPER 0:INK 6:HIRES: 
PAPER 4:DRAW 239,134,1: 
TEXT 

Tapez ensuite : ESC puis DEL. On 
voit alors apparaître une partie de 
l'écran HIRES sur l’écran TEXT ! 
C'est ce phénomène que nous 
allons exploiter. 

Il nous faut pour cela stabiliser 
cet écran. Cela sera fait tant que 
le code ESC + DEL restera affiché 
à l'écran. En effet, appuyer sur la 
flèche l (curseur bas) : au bout 
d'un moment, l'écran revient en 
mode TEXT car le scolling a fait 
"sortir" le code de l'écran. 
Nous allons donc condamner la 
dernière ligne (26) où l'on placera 
ce code. A ce propos, il y a plu¬ 
sieurs façons de l'y mettre : 

— ESC puis DEL en mode direct 
sur la ligne 26. 

- ?<® 0,26;CHR(27);CHR(127); 


qui peut aussi s'écrire ? (P 0,26; 
CHR( 1 59); 

- PLOT 0,26,31 
C'est la dernière solution (la plus 
simple) que l'on retiendra. Il ne 
reste plus qu'à positionner cor¬ 
rectement les pointeurs définis¬ 
sant la ''page TEXT" pour que la 
dernière ligne ne puisse plus être 
modifiée. 

Les modifications sont ici diffé¬ 
rentes sur ORIC-1 et sur ATMOS. 
Cela provient du fait que la rou¬ 
tine de défilement de l'écran 
(scrolling) a été revue sur ce der¬ 
nier. Afin d'accélérer ce scrolling, 
certaines valeurs sont calculées 
une fois pour toutes, et, la 
méthode d'adressage a été amé¬ 
liorée en utilisant une adresse 
intermédiaire de plus. Le gain de 
temps réalisé est de l'ordre de 
30 %. Mais, revenons au pro¬ 
blème. 

Sur ATMOS 

1) DOKE 632,48720 (#BE60) 
adresse seconde ligne. 

2) DOKE 634,48680 (#BE28) 
adresse première ligne. 

On définit ainsi la 16 e ligne habi¬ 
tuelle comme étant maintenant la 
première. Il reste donc 11 lignes, 
mais on a choisi de ne pas tou¬ 
cher à la dernière. On dispose 
donc de 10 lignes vraiment utili¬ 
sables. Lors du scrolling, on aura 
donc 40 (10-1) = 360 octets à 
déplacer. Cela donne : 

3) DOKE 636,360 et 

4) POKE 638,10 
Sur ORIC-1 

1) DOKE 621,48640 (#BE00) 
adresse première ligne 

2) POKE 623,10 Nombre de 
lignes utilisables. 

Après avoir effectué ces opéra¬ 
tions, faites : 

CLS:F0R 1 = 1 TO 100:? I:NEXT 
et voyez le résultat (création de 
la fenêtre). 


REMARQUE : Cette procédure de 
définition de la "page Text" est 
tout à fait "standard". Ainsi, si 
on désire normalement 28 lignes 
au lieu de 27, il suffit de faire : 
DOKE 632, # BBA8:D0KE 634: 
#BB80:DOKE 636,1080:POKE 
638,28:CLS si on a un ATMOS 
et, si on a un ORIC-1 : 

DOKE 621, # BB58 (47960): 
POKE 623,10:CLS 
Cela peut parfois être intéressant. 
En reprenant notre écran 
"mixte", il est intéressant d'étu¬ 
dier sa disposition en mémoire. 
Les résultats sont portés sur le 
tableau ci-joint. On y observe : 

- HIRES de # A000 à # B3FF et 
même # B4FF car page # B4 vide. 

- TEXT de #BE28 à # BFEO 

- Reste de #B800à #BE27qui 
est disponible pour des routines 
en langage machine, par exem¬ 
ple. 

Le Basic peut donc aller jusqu'à 
l'adresse # A000, ce qui donne 
environ 40 ko de libres en tout. 
On dispose donc en HIRES des 
lignes 0 à 133 et en TEXT des 
lignes 16 à 25. Attention, en gra¬ 
phismes à ne pas dépasser la 
ligne 133, car ensuite vous des¬ 
sineriez directement dans la zone 
de définition des caractères du 
premier clavier. 

Une partie de ces caractères 
( # B500 - # B52D) est d'ailleurs 
"présente à l'écran" lignes 134 
et 1 35, et, vu la faible valeur de 
ces octets, ceux-ci sont interpré¬ 
tés comme des caractères de 
contrôle (Paper ou INK) qui pro¬ 
voquent des parasites à l'écran. 
La ligne n° 36 du programme se 
charge de les faire disparaître en 
mettant les bits 6 à 1 et en met¬ 
tant couleur encre-couleur papier 
sur cette ligne. 

Enfin, la dernière ligne de l'écran 
n'est pas entièrement condam¬ 
née car, mis à part l'octet pris par 
le code "31 ", le reste est acces¬ 
sible par PLOT et peut donc ser¬ 
vir de ligne d'état comme dans le 
programme ci-joint. 


0 REM- 

1 REM 

2 REM Ecran Semi-Graphique. 

3 REM Pour Oric-1 & ATMOS. 

4 REM 


K> 




CARTE MEMOIRE DANS LES 
3 MODES ECRAN 

TEXT HIRES MIXTE 


EFFF 


FFFF 



FFFF 

ROM 

(BASIC) 


ROM 

(BASIC) 


ROM 

(BASIC) 


COOO 


COOO 



COOO 

réservé BFEO 


réservé BFEO 


réservé 

BFEO 





TEXT 

BE28 

Ecran 

Texte 

BB80 




zone libre 

BB80 




2* clavier 

B800 

2* clavier 

B800 




1« r clavier 

B400 

1 ,r clavier 

B400 








ECRAN 

HIRES 
(200 lignes 
+ 3 de texte) 


ECRAN 
HIRES 
133 lignes 

AOOO 

BASIC 

Si Grab 


AOOO 


Programme 

Basic 




2* clavier 

9C00 





1» r clavier 

9800 




Programme 

Basic 


Programme 

Basic 




v\y\y\v/^ 


\aaaa 


y\V\A 


. ' ,;:a; "nerru ’ Août 1935 


: £r ProçraaM ce c-enc-stratior 


-l-EE : T EtT : PAPER A :INK 7 : OLE 
: .Z”Ü.2o,ûs Pu)T 1.2c,2:?-C7 2,26,*6 
. 3.2s,3l ’ Affine 'Esc + Sel' 

5.2s.*_EôAL Tnierru* 

«oai*i;r 28 et 30 si Cr.c-1. 
!■>£ o32.A£72C îSOKc g34,48sAC 
21 1 Æ o3c,3eû :PC-KE o3S, 13 

12 : I y Ef'ace ‘oarasites* oe l'ec-ar. 

:.i sfOR j=«b*f: r o «520 
2: -:■£ I.PEEKII» OR s4 :*EXT ’64=#4G 
3: : j.-t *2Cû,3 'AatO'üe Cad? Hires 
-2 1.R5E" 0,0.0 :FIi_L 134,40,64 
-2 SES Trace 3c contcu 1 * ce l'écran. 

2'jRScT 0,134.1 : DRAW 0,-134.1 
•*s IRA*, 239,0,1 :DRA4 0.134,1 
*z ; 0KE #S4FC,23 'Ligne 134 Biancne 
il IOkE *2513.3 ’Delete Ligne 135 

2>\E *4s,#ACOO :CLEAR 'biner' iAOOC 
i: DEEK(#A0 >-#4QG)+<#BE28-#33üG1 

ci - ; I VH£ X* < FRE ; 0 ) *F ), ’ Octet s Libres 

.22 ;.R5E T 0,67,1 :DRAW 239,0.: 

.22 '>91/60 îFOR X=G T 0 239 S^EP 2 
11- i.RSE T X,é7-6D*C0S<X*K).l 
Ils l-.'RSET X,67-oC*SIN(X*K,', i :ÆXT 
.22 ZAP :LÎET 1ÛG-120 


212 " version Hirsiüiaie oour Seai-Srapf. 
21s " sur Oric Atios. 

2:2 ~ïl~ Ï?L0T 0,26,31 

2.2 2>'E c32.48720 :D0KE s34.48680 

2> ÛOnt t'3t,3cü :POftE 636,10 :CLS 

1.2 " et sur ûric-1. 

__ s), : PLOT 0,2s,31 

11- 0>E e2l. 48643 :POKE 623,10 : CLS 


^vww y 


4 libre ou DOS 


3 entrée/sortie 


2 Ptrs + adr dvs 


1 pile 


O tampon + ptrs 


21- ’ 5 0KE 4200,3 peur utiliser les 
23c ' orcres graoniaues Hires 


2-0 "et POKc #200.2 oour les orores 
242 ’ en *ext ou Lores ;ow>tre 
244 ’ PcOT ou Print 6 . 

24c " 


c*0 
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PUISSANCE 



Le jeu se joue sur un damier de 
4x4x4 cases et possède la par¬ 
ticularité de pouvoir se jouer à 
deux partenaires ou seul contre 
l'ordinateur. 

Un tirage au sort détermine qui 
commencera le premier. 
L'intérêt de PUISSANCE 4 est 
évident, par opposition à un banal 
MORPION. En effet, les pions 
viennent s'empiler dans les 
colonnes, ce qui complique la 
tâche pour faire une diagonale 
dans le sens vertical, les cases 
inférieures devant être pleines 
pour accéder à l'étage supérieur. 
Mais, je vous,laisse juge de la dif¬ 
ficulté en vous invitant à y jouer 
longuement... 

Je n'entrerais pas dans le détail 
de la programmation, car elle est 
très classique pour ce type de jeu 
et ne possède aucune astuce par¬ 
ticulière, le but recherché étant la 
difficulté du jeu et non un exer¬ 
cice de style en Basic. De plus, 
le listing se suffit de lui-même, de 
nombreux commentaires venant 
le découper. 

L'honnêteté m'oblige à vous pré¬ 
ciser que la base des calculs a été 


trouvée dans les revues suivan¬ 
tes : JEUX ET STRATEGIE et 
MICRO-ORDINATEURS. 

Une remarque cependant concerne 
les DATA en fin de programme. 
Elles servent uniquement à faire 
écrire l'ordinateur comme nous le 
ferions avec un crayon et permet¬ 
tent ainsi une écriture de titre en 
haute résolution très originale. 
Le principe de la digitalisation a 
été retenu pour saisir les coor¬ 
données à l'aide d'un calque mil¬ 
limétré sur lequel a été fait l'ori¬ 
ginal du titre. Les coordonnées 
ont ensuite été entrées en DATA 
dans l'ordre voulu. Une simple 
boucle REPEAT-UNTIL permet¬ 
tant de les afficher après indica¬ 
tion des coordonnées de départ. 
Ce procédé peut être utilisé pour 
“digitaliser" un dessin que l'on 
veut reproduire sur l'écran. 

Si le travail a été long et fasti¬ 
dieux, le résultat obtenu est à la 
hauteur de part l'originalité de 
l'écriture. 

En outre, une gestion systémati¬ 
que des erreurs évite toute fausse 
manœuvre dans l'entrée des 
paramètres du jeu lui-même. 
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10 FOR R=4020O TO 40207 : RERDX = POKER,X« NEXT 
20 DflTR 0,7,15,30,62,60,0,0 

30 GOSUB6000 î •'- REGLES - 

50 DIMR< 4,4,4 ), 2< 4,4 ), GR< 4,4 >, N< 20 > 

100 GOSUB 5000 : * - DAMIER - 

120 FOR X=1 TO 4 = FOR Y=1 TO 4 : 2< X,Y>=0 : GRCX,Y)=0: 

125 FOR Z=1 TO 4 ! R<X,Y,Z>=0' NEXT Z,Y,X 
130 FOR R=0 TO 20=N<fi>=0: NEXT 

140 N< 1 )=.001 ! N<2>=.01 ! N<3)=. 1 = NC 4>=1 = N<5>=10’N< 10>=100=N< 15>=1000*N<20 >=10000 
150 NC=0 

160 IF NJ-2 THEN 4000 

170 IF 0J=2 THEN XM=INT<RND<1>*4+1 )»YM=INTCRND<1>*4+1> = GOTO 700 

300 * - 

310 ' — COUP JOUEUR 

320 ' - 

325 NC=NC+1=IF NC=65 THEN 2500 

330 SOUND1,100,9=PLRY1,0,0,0 : WRIT20 : PLRY0,0,0,0=P0KE618,3 
335 PRINT" R vous de jouer..." 

340 INPUTRÏ = L=LEN< fl$ ) ! X=RSC< LEFT*< R$, 1 ) >-64 = Y=RSCC RIGHTSC R$, 1>>-48 

350 IFL<>20RX<1ORX >40RY<1ORY >4THENPRINT"Entrée i incorrecte !"= WRIT200 = GOTO330 

360 IFZ< X,Y >=4 THENPRINT = PRINT"Colonne comP 1 ete ! Rejouez ... " = WRIT20O = GOTO340 

370 ZC X, Y >=Z< X, Y >+l = RC X, Y, Z< X, Y > >= 1 

375 P0KE613,2 

380 GOSUB5500 ! ' - RFFICHRGE - 

390 IF GR<X, Y >= 1 THEN Z=Z<X,Y> = GOTO 2500 


? 00 ' - T - 

710 '- COUP ORDI ' 

720 ' - 

725 NC=NC+1=IF NC=65 THEN 2500 

730 M=0 = CG$="N"=OG$="N"= SP=2000 

735 SOUND1,100,9 = PLRY1,0,0,0 = WRIT20 = PLRY0,0,0,0 

740 PRINT" R moi de jouer !"=PRINT" Un instant, je réfléchis... 

745 IF NC=2 THENXM=IHT<RNDC1 >*4+1 >>YM=INT<.<1>*4+1> = GOTO 790 

750 FOR X=1 TO 4=FOR Y=1 TO 4 = GRC X,Y>=0 = T=0 

760 IFZC X,Y>=4 THEN 780 

770 Z=Z< X,Y)+1 : GOSUB 1000 

780 NEXT Y,X 

790 X=XM = Y=YM•ZC X,Y>=ZC X, Y >+1 

800 RC X, Y, ZC X, Y > >=5 = PRIHT = PRINT" Je joue en "CHR$C 64+X >Y = GOSUB 5500 
818 IF GG$="Q" THEN Z=ZCX,Y> = GOTO 2500 
820 GOTO 300 

1000 ' - 

1010 ' - S/P CRLCUL - 

1020 * - 




1025 ' - <1> PRR PLRN 

1026 ' - 

1030 S=0 = F0RRY=1T04 = S=S+fl<X,RY,Z > = NEXT = C1=0 = C2=l=C3=0 = GOSUB SP 

1040 S=0 = FORRX=1T04 = S=S+R< RX,Y, Z > ! NEXT = C1 = 1= C2=0 = C3=0= GOSUB SP 

1050 IF X=Y THEN S=0=FOR R=1T04=S=S+RCfl,R,Z> : NEXT=Cl=l=C2=l=C3=0= GOSUB SP 

1060 IF X-5-Y THEN 3=0 = FORR=1T04 = S=S+RCR,5-R, Z > = NEXT = C1 = 1= C2=-1= C3=0 = GOSUBSP 
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1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1205 
1210 
1215 
1220 
1225 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1315 
1320 
1325 
1330 
1335 
1340 
1350 
1360 
1370 
1400 
2000 
2010 
2020 
2025 
2030 
2040 
2050 
2070 
2080 
2O90 
2500 
2510 
2520 
2525 
2530 
2540 
2550 
2555 
2560 
3000 
3010 
3020 

3032 

3035 

3040 

3050 

3060 

3061 
3065 


-C 2 > DANS L'ESPACE 


IFZ< >1RNDZ< MTHEN1250 

IFX=ZTHENS=0*F0RRX=1TÜ4 >S=S+AC RX,Y,RX)■HEXT = Cl = l=C2=0:C3=1 = GOSUBSP 
IFX=5-ZTHENS=0:F0RRX=1T04 «S=S+ACRX,Y,5-RX > «NEXT = 01 = 1= C2=0 >C3=-1=GOSUBSF 
IFY=ZTHENS=0 = FORRY=1T04 «S=S+fl< X, flY, RY )<HEXT « C1=0 « C2=1 *C3=1 » GOSUBSP 
I FY=5-ZTHENS=0 : FORRY= 1T04 » S*S+fl< X, RY, 5-RY ) NEXT = C1=0 : C2=-1 : C3= 1 : GOSUBSP 
IFX=ZRHDY=ZTHENS=0>FORfi=1T04:S=S+RC R, fl, fl > : NEXT : Cl = 1= C2=lsC3=l : GOSUBSP 
IFNGTC X=5-ZRNDY=5-Z)THEN1210 

S=0 = FORR=1T04 = S=S+RC 5-fl,5-R,R > = NEXT = C1=-1 : C2=-1= C3=1=GOSUBSP 
IFHOTC X=5-ZRNDY=Z )THEN1220 

S=0:FORR=1T04 = S=S+RC5-R,fl,R)•NEXT:C1=-1 :C2=1= C3=1= GOSUBSP 
IFHOTCX=ZRNDY=5-Z5THEN1240 

S=0: FORfl=1T04 = S=S+AC R,5-R,fl ) = NEXT = C1=1 = C2=-1= C3=1= GOSUBSP 


IFZ<>2RNDZ<>3THEN1350 

IFY=ZTHENS=0«FORfiY=1T04 = S=S+AC X,RY,RY ) = NEXT : C1=0 : C2=l ; C3=l : GOSUBSP 
IFY=5-ZTHEHS=0 = FORRY=1T04 = S=S+AC X,RY,5-RY>•NEXT : C1=0■C2=1=C3=-1•GOSUBSP 
IFX=ZTHENS=0 *FORRX=1T04:S=S+ACRX,Y,RX > = NEXT = C1 = 1 : C2=0:C3=1 «GOSUBSP 
IFX=5-ZTHENS=0 = FORRX=1T04:S=S+flC flX,Y,5-RX>»HEXT = C1 = 1=C2=0 ; C3=-l : GOSl )BSP 
IFX=YRNDY=ZTHENS=0 = F0RR=1T04 ■■ S=S+RC R, R, R > : NEXT = Cl = l = C2=l : C3=l « GOSUBSP 
IFHOTC. X=YRHDY=5-Z )THEN1320 

S=0 * FORR= 1T04 : S=S+P> fl,fl,5-fi> : NEXT : Cl = l : C2= 1 « C3=-1 : GOSUBSP 
IFHOTC X=5-YRNDY=Z >1HEN1330 

S=0 «FORR=1T04 = S=S+RCR,5-R,5-R > = NEXT = C1 = 1 =C2=-1 :C3=-1 *GOSUBSP 
IFHOTC X=5-YANDY=5-Z>THEN1340 

S=0 : FORfl=1T04 : S=S+RC R,5-fl, fl ) : HEXT : C1 = 1 : C2=-l : C3=l : GOSUBSP 


' - GRTHOGONALEMENT RU PLAN - 

f _ 

S=8 = FORRZ= 1T04 ; S=S+RC X, Y, RZ '.>■ NEXT : C1=0 : C2=0 = C3=l : GOSUBSP 
RETURN 

f ___ 

'-SOUS PROGRflnriE ANALYSE — 

* _____ 

IF 0G$="0" THEN 2090 

IF NC S )=. 1 THEN GRC X, Y >= 1 : CG$= "0" : YM= Y : XH=X 
T=T+NCS> 

IF T-INTCT>>=.02RHDCG$<>"0" THEN XM=X=YM=Y■CG$="BIENTOT" 
IFCG$="N" AND T>M THEN M=T «YM=Y = XM=X 
IF T>=1000 THEN XM=X : YM=Y : 0G$="0" 

RETURN 

/ _____ 

'- FIN DE PARTIE 


P0KE618,2 
IF NC=65 THEN 3150 

IF 0Gi="0" THEN PRINT « PRINTCHRSC 133 )+"Desole... mais Je 9a9ne !" 
IF 0G$="N" THEN PRINT ! PRINTCHR$C 133>+"Bravo, vous avez 9a9ne !" 
WRIT 300 

SF-3000 : GOSUB 1000 


' - RECHERCHE LIGNE GAGNANTE -- 

f ______ 

IF S< >4 AND S< >20 THEN RETURN 
IF NJ=1 THEN 3040 
PRINTCHR$C133 >+"Bravo "NO$C 0J>" ! 
POP ^ POP 

REPERT = X=X-C1«Y=Y-C2*Z=Z-C3 
UNTIL X=0 OR Y=0 OR Z=0 
X=X+C1 : Y=Y+C2 : Z=Z+C3 
0=2 ; FOR K=1 TO 2-0=0+1 


,Vous avez 9a9ne!" 
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«SS 
3070 FOR C=0 TO 7 
3075 N0=1 

3080 FOR H=0 TO 3=X2=X+C1*N=Y2=Y+C2*N=Z2=Z+C3*N 

3090 CURSET30*X2+12*CY2-1 ),236-9*Y2-47*Z2,3 : FILL6,1,C 

3095 N0-N0+2=MUSICI, 0,HO,9 = WflIT 5 

3100 NEXT N=MAIT 50 

3110 NEXT C : NEXT K 

3115 PLAY0,0,0,0 

3120 FOR H=0 TO 3=X2=X+C1*N«Y2=Y+C2*N=Z2=Z+C3*N 
3130 ÜJRSET30*X2+12*CY2-1),236-9*Y2-47*Z2,3 = FILL6,1,1 
3140 NEXT N 

3150 IFHC=65THEHPRINT=PRINTCHR*C130)+" Match nul !..."ELSE GOTO 3160 

3151 PRINTCHR*C134H"Une autre Partie s'impose !" 

3155 NAIT 200 : CLS : P0KE618.• 2 : 

3160 A*=="** Voulez-vous rejouer ? **" 

3170 X=0 * PRINT = REPEfiT 

3180 PRINT RIGHT*CAS,37-X) + LEFT$CA*,X) = WAIT 10 
3182 PRINTCHRSC 11); CHR*C 129 >; 

3185 X=X+1= IF X=38 THEN X=0 

3190 B*=KEY* ! UNTIL B*="0" OR B*="N" 

3200 IFB*="0"THENP0KE618 ,3 *GOSUB6140 = GOTO100 

3210 CLS = PRINT;CHR*C130)+CHR*C140)+"Au revoir..." : WAIT500 

3211 PQKE618,2 =TEXT = PAPER0=INK6 = CLS 
3215 CALL#F8D0 

3220 END 

4000 * - 

4010 '- A 2 JOUEURS 

4020 * - 

4025 0J=1 

4030 NC=NC+1 : IF NC=65 THEN 3500 

4035 SOUND1,100,9 = PLAY1,0,0,0 = WAIT20 = PLAY0,0,0,0 

4040 PRIHT : PRINT" A "HO$COJ)" de Jouer !" 

4050 IHPUTA*:L=LENCAS) = X=ASC<LEFTSCfi*, 1 ))-64:Y=ASC<RIGHT*CA$,1))-48 
4060 IFL< >20RX<1ORX>40RY<1ORY>4THENPRINT"Entrée incorrecte !"=WAIT200 = GOTO4035 
4070 IFZC X, Y )=4THENPR I NT : PR INT " Co l orme cornP 1 ete ! Re J ouez . . . " « WA IT200 = GOTO4050 
4080 Z(. X, Y )=Z< X, Y )+1 = Z=Z< X, Y ) = AC X, Y, Z )=-1 *C 0J= 1 )-5*C 0J=2 ) 

4090 GGSUB 5500 ! REM- AFFICHAGE PION - 

4100 SP=3000 : GOSUB1000 

4110 IF 0J=1 THEN 0J=2 ELSE 0J=1 

4120 GOTO 4030 

5000 ' - 

5010 # - DAMIER - 

5020 * - 

5025 P0KE618,2 : IHK3 
5030 HI RES = PAPER0 INK4 
5040 FOR A=0 TO 3 
5050 CIJRSET66,10+47*A, 1 

5060 FOR B=0 TO 4 = DRAW 128,0,1 = CUR.MÛV-132,9,1 = NEXT B 
5070 NEXT A 

5080 FOR A=0 TO 3 : CURSETS6, 10+47*A, 1 ■' FOR B=0 TO 4 : DRAW-48,36,1 : CURM0V78, -36 • 0 
5085 NEXT B,A 

5090 CURSET30,190,3 * FOR A=0 TO 3 = CHAR 65+A,0,1= CURMOV30,0,3^ NEXT A 
5î00 CURSET13,179,3 : FOR A=0 TO 3:CHAR49+A,0,1:CURMOV12,-9,3- NEXT A 
5110 FOR A=40200 TO 40207 : REflDX ! POKER,X= NEXTA=RESTORE 
5125 CURSET200,60,3 : FILL3,1,5=CURSET210,60,3=CHAR33,1,1 
5130 CURSET170,75,3 * FILL8,1,5 «CURSET175,75,3 

5140 FOR N=1 TO LENC NO*<1)) = CHARASCC MIDSCNOSC1),N,1)),0,1 «CURM0V7,0,3 = NEXT N 
5145 CIJRSET2O0,110,3 = FILL8,1,2 = CURSET210,110,3 = CHAR33,1,1 
5150 CURSET170,125,3 = FILL3,1,2 = CURSET175,125, 3 

5160 FOR N=1 TO LENCNO*C 2 ) ) = CHARASCC MID*CN0*C2),N,1)),0,1=CURM0V7,0,3 = NEXT N 

5161 CURSET40,0,3 = FILL3,1,1 

5162 W*== " 1985 Scherrer Yves. " = CURSET45,0,3 = CHAR96,0,1= CURMOV 14,0,3 

5164 FOR N=1 TO LENC W* ) = CHARASCC MID*C W$, N, 1 )),0,1 = CUR.MQV7,0,3 = NEXT N 
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5170 

5400 

5410 

5500 

5505 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5588 

6000 

6001 

6002 

6010 

6015 

6020 

6025 

6030 

6035 

6040 

6045 

6050 

6055 

6060 

6065 

6100 

6105 

6110 

6115 

6120 

6125 

6130 

6131 
6135 

6140 

6141 

6142 

6143 

6144 

6145 

6146 
6158 
6155 
6160 
6165 
6170 
6175 
6130 
6105 

6190 

6191 

6195 

6196 

6197 
6200 
6210 
6215 
6217 
6220 
6230 


P0KE613,3 : RETURN 

J ____ 


/ _ 


AFFICHAGE PION 


80=400:IF NC/2=INT<NC/2>THEN C=2ELSEC=5 
FOR N=4 TO Z<X,Y> STEP -1 
X1=30*X+12*Y-6: Y1=235-9*Y-47*N 

CURSETX1+6,Y1 +1,3 = FILL6,1,4 =CURSETX1-6, Y1 +1,3 = FILL6,1,C 
CURSETX1, Y1,3 •• CHRR33,1,1:SOUND1,80,0 :PLRY1,0,1,4Q0 : WRIT10 
80=80+50 

IFN< >Z( X,Y > THEN FILL8,1,64 

NEXT N 

RETURN 


J _ 

t _ 


PRESENTRTION 


HIRES = PRPER6*INK4:P0KE618,2 ; GOSU830000 : 

PLflY1,0,0,0 : fl=10 

FOR N=15 TO 50 STEP2 : CURSET220,N,3 : FILL2,1,22 : CURSET18,N,0 = FILL2,1,1 
SOUND 1,fl,6 = R=fl+.5 = CURM0V6,-2,3 = FILL2,1, 16 :NEXT N : INK6 
FOR C=0 TO 3 
CURSET30,30+25*0,1 

FOR 3=0 TO 4 : DRRW35,0,1 ; CURM0V-3S,5,0 : NEXT B 
NEXT C 

FOR C=0 TO 3 :CURSET30,80+25*0,1 : FOR 3=0 TO 4 : DRAW-13,19,1:CURM0V35,-19.0 
NEXT 3,0 

FOR N=70 TOI90 STEP2:CURSET120,N,3 : FILL2,1,22 : CURSET10,N,0 : FILL2,1,5 
SOUND 1,R,6 «fl=R+.5 = CURM0V6,-2,3 « FILL2,1,16 = CURMOV120,-2,3 : FILL2,1,6 : NEXT 
fl1$="PUISSANCE 4":R2$="EN TROIS" 

R4$="DIMENSIONS !" 

CURSET140,110,3:R$=fl1$ = GOSUB8000 ; CURSET155,130,3 = R*=R2$:GOSlJB8000 
CURSET140,150,3 :R$=R4$■GOSUB8000 

FOR H=90 TO 130 STEP2 : CURSET239,N,3 = FILL2,1,22 : CURSET130,N,0 : FILL2,1,3 
SOUND1,R,6 = R=R+.5 = CURM0V6,-2,3 « FILL2,1,20 
NEXT N : PLAY0,0,0,0 : PRINT 

PRINTCHR$< 131 )+CHR$< 140 >+" Joli non.?!":URIT400 

, - REGLES - 

TEXT: INK6 PRPER0:ZRP : P0KE613,2 

Z$=" "+CHP*-r96>+" T934 Yves SCHERRER 

POKE43000,5 :FÜRfl=7T033 

Y$=MID$<Z$,R-6,1):POKE43000+R,ASC(Y$)*NEXT R 
X$=CHR$<4 >:Z*=CHR$<27):PRINT 

PRINTX $-Zti "J".; Z*; "C";Z$; "T-" ;X$ 

PRINT 

PRINTXÏj Z$> " J" • Z*; "C" ; Z%:- "T- PUISSANCE 4 - "-, X* 

PRINT:P0KE618,2 

PR I NTX$Z* .i " J " • Z$ ; " C " Z$ • " T-" ; v$ 

PRINT 

PRINT" Le jeu. consiste a al i9ner"+CHR$( 133 >+"4"+CHR$< 134 >+"de ses" 

PR I NT "Pi ons sur un dan i er " +CHR$< 130 >+" 4x4x4 " +CHR$< 134 >+ ". La P art i e " 

PRINT"Prend fin des que l'un des joueurs a" 

PRINT"réussi un alignement. " 

PRINT"Vous P cuvez j ouer contre rORIC"+CHR$v131>+"C13";CHR*<134 >i 
PRINT"ou a 2 joueurs"+CHR$<131H"C2D" 

PRINT "Quel le oPtion choisissez-vous"+CHR$< 129>+"< 1/2 V'+CHP$'' 134 : 

P0KE613,3 

GETflS : SOUND 1,100,9: F'LRY 1,0,0,0 : WRIT20 : PLRY0,0,0,0 
NJ=VRL<fl$)=IFNJ<>1RNDHJ< >2THEN6197 
PRINT: PRINTCHRSK 133>"Tirage au sort '" = P0KE618,2 
IFNJ=2THEN6250ELSE:PRINT"Choisissez entre Pair et ImPair= " ; 

P0KE613,3 

GOSUB 8200 : POK'ES 18 • S 
GOTO6300 
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K=PEEK< #276 ) •• IFINK Kx2 )=K/2THENK*="droite" = GOTO6260 = ELSEK*- H 9auche" 
FRINT"Que le joueur de "K*" choisisse" : PRINT"entre Pair et imPair. 
GOSUB8200 

PRINT : IF NJ=2 THEN P0KE618,3 :GOTO6350 
PRINT"Votre Prénom <8 lettres maximum)" 

G0SUB8100 «NÜ*< 0J)=A* 

N0$<-1*< 0J=2 >-2*<0J=1 ) )=" ORIC" 

GOTO6380 

PRINT"Entrez vos Prénom (8 lettres maximum)"; 

RRINT" Joueur 1 = =GOSUB3100=NO*<1)=fl* 

PRINT" Joueur 2 = " ; =G0SUB8100 :N0*< 2)=A* 

P0KE618,2 «WfilT100 = CLS = PRINT = PRINT : PRINT = PRINT : PRINT = 

PRINTX*; Z*;"J";Z*;"CBonne chance.";X* 

WflIT150 : RETURN 

t _________ ____—. 

' - flFFICHRGE MOTS -> HIRES - 

t ___________ 

FOR N= 1 TO LEN< fl* ) i CHflRflSC< MI D*< fl*, N, 1 ) ), 0, 1 * CURM0V8,0,3 = NEXT 
RETURN 

) _ _ _ _ ____ _ — — — — 

' - CAS DE PRENOM COMP. - 


PRINTCHR*<129) 

I NPUTfl* = SOUND 1, 100,9 = PLAY 1,0,0,0 = WA IT20 = PLAY0,0,0,0 
REPEflT=IF LEFT*cfl*,1 )=" " THEN fl*=RIGHT*<fl*,LENCfl* )-1 ) 

IJNTIL LEFT*< fl*, 1)0" " = IF LEN<fl*)>8 THENfl*=LEFT*< fl*, 8 ) 
L=INT<<3-LEN<R*)V2)= IF L=0 THEN 8140 
FOR N=0 TO L : fl*=" "+fl* = NEXT N' 

RETURN 

/ ______ _ ___ _ __ _ _ _ —— 

'- TIRAGE AU SORT 

t _______ 

P0KE618,3 : GETfl* = SOUND 1,100, 9 = PLAY 1,0,0,0 = WflIT20 = PLRY0,0,0,0 = P0KE618,2 
IFA*< >"P" RNDR*< > " I" THEN8203 ELSEPRI NTCHP.$< 129 )fl* 

N=PEEK<#276 ) = F0RK=1TO N = KK=RND(1) = NEXT 

FL0T4,13,3=PLOT10,13,16=PLOTS,18,20 

F0RK= 1 TO 10 = KK= I NT< RNDC 1 >* 10) = PL0T6,18,3TR*< KK ) = Wfl IT10 

SOUND1,100,9 = PLAY1,0,0,0 = WflIT20 = PLAY0,0,0,0 = NEXT = WflIT30 

IF< fl*= "P"flNDKK/2= INT< KK/2 ) )0R< fl*=" I "RNDKK/2< >INT< KK/2 ) )THEN0J=1ELSE0J=2 

IFOJ=1THENA*="P remier" = 0J=1ELSEfl*="second" 

FRINT=PRINT" Vous Jouerez en "fl*" !" 


30220 


' - LOGO HIRES PRES. 

W=450 = REPEflT 
SOUND1,W,6 
REflD X,Y 


CURSETX,Y,1=W=W-.S 

IJNTIL X= 1 = FLflYO,0,0,0 = RESTORE 

, -Y-> 

DATA30,23,31,22,32,21,33,21,34,22,34, 
DATA35,29,36,30,37,30,38,29,39,21,39, 
DATA39•28.39,29,39,30,39,31,39,32,39, 
DATA38,39,37,40,36,40,35,39,35,38,35, 
DAT A38,31,40,29,41,28 

1 -■»-V---> 

DATA42,27,42,26,42,25,43,24,44,24,45, 
DATA47,30,48,29,43',28,48,23,48,27,43, 

, -E-> 

DATAS1,27,52,27,53,27,54,26,54,25,53, 

DATA52,29,53,30,54,30,55,30,56,29,57, 

' -S-> 

DRTA59,26,60,25,61,24,61,25,62,26,63, 


23,34,24,34,25,34,26,34,27,34, 

22.39.23.39.24.39.25.39.26.39, 

33.39.34.39.35.39.36.39.37.39, 
37,35,36,35,35,35,34,36,33,37, 


25.45.26.45.27.45.28.45.29.46.30 

26.48.25.49.26.50.27 

24,52,24,51,25,51,26,51,27,51,23 

23.58.27 

27.63.23.63.29.62.30.61.30.60.30 
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30230 

30240 

30250 

30260 

30270 

30230 

30290 

30300 

30310 

30320 

30330 

30340 

30350 

30360 

30370 

30330 

30390 

30400 

30410 

30420 

30430 

30440 

30450 
30460 
30470 
30480 
30490 
30500 
30510 
30520 
30530 
30540 
30550 
30560 
30570 
30530 
i 30590 
30600 
30610 
30620 
30630 
30640 
30650 
30660 
30670 
30630 
30690 
30700 
30710 
30720 
30730 
30740 
30750 
30760 
30780 
30300 


DRTA59,29 


DATA73,21,79,22,80,21,30,20,79,19,78,19,77,19,76,20,75,21,75,22,76,23 
DRTR77,24,73,25,79,26,30,27, 80,23,79,29, 73,30,77,30,76,30,75,29, 75,28 
0RTR76,27,77,28 
, - c -> 

DRTR81,30,32, 29,87,26,87,25,36,24,35,24,34,24,33,25,83,26,83,27,33,28 
DRTR34,29,85,30,86,30,87,30,38,29 
' - H -> 

DRTR39-23.90,27,92,24,93,23,94,22,94,21,94,20,93,19,92,19,91 
DRTR20,91,21,91,22,91,23,91,24,91,25,91,26,91,27,91,28,91,29 
DRTR91,30,92,26,93,25,94,25,95,26,95,27,95,28,96,29,97,30 
DRT R98,30 

' - E -> 

DRTR99•29,100,28,102,27,103,27,104,27,105,26,105,25,184,24,103,24,102 


DATA107,28 
/__ _ 


R 


E 

a 

L2î 
R 
2i 
L 3‘ 
F' 




0 


,26, 

101 , 

27, 

101 , 

23, 

102 , 

29, 

103, 

30, 

104, 

30, 

105, 

30, 

106, 

29 

, 109 

,25, 

103 

-> 

,24, 

110 

,25, 

111 

,25, 

111 

,25, 

112 

,25, 

113 

,26, 

113 

,29, 

113, 

38, 

114, 

36 











,117 

, 27, 

118 

_ y 

,26, 

118 

,25, 

117 

,24, 

119 

,25, 

120 

,25, 

121 

,25, 

122 

,28, 

121 , 

29, 

122 , 

30, 

123, 

30 









, 126 

,27, 

126 

,27, 

127 

• 27, 

123 

,27, 

129 

,26, 

129 

,25, 

128 

,24, 

127 

,25, 

125, 

26, 

1 C--J / 

27, 

125, 

28, 

126, 

29, 

127, 

30, 

128, 

30, 

129, 

30 

, 132 

,27, 

133 

,26, 

133 

, 25, 

132 

,24, 

134 

/ 25/ 

135 

,25, 

136 

,26, 

136 

:,29, 

136, 

30, 

137, 

30, 

133, 

29 









152 

,25, 

153 

,24, 

153 

,25, 

153 

,26, 

153 

, 27, 

153 

,28, 

153 

,29, 

153 

: , 32, 

153, 

33, 

153, 

34, 

153, 

35, 

153, 

36, 

153, 

37, 

153, 

38, 

154, 

25 

, 157 

,25, 

157 

1 26 .* 

«s 

157 

,27, 

157 

,28, 

157 

,29, 

153 

,30, 

159 

,38 


162 

,27, 

163 

,26, 

163 

• 25 • 

162 

,24, 

164 

,25, 

165 

,25, 

166 

,26, 

166 

i, 29, 

166, 

30, 

167, 

_ V 

30 











!.. 170 

• 27. 

171 

.* 25 .• 

171 

,26, 

171 

,27, 

171 

• 28 / 

171 

,29, 

172 

,30, 

173 

,23, 

174, 

27, 

174, 

26, 

174, 

£.--•/ 

173, 

24, 

172, 

24 





;, 177 

,25, 

178 

,24, 

178 

,25, 

173 

,26, 

173 

,27, 

173 

,28, 

173 

,29, 

178 

i, 32, 

173, 

33, 

173, 

34, 

173, 

35.* 

173, 

36, 

173, 

37, 

173, 

38, 

179, 

25 

, 182 

,25, 

182 

,26, 

182 

,27, 

132 

,23, 

132 

,29, 

133 

, 30, 

134 

,30 


:, 187 

,27, 

183 

,25, 

183 

,26, 

188 

,27, 

188 

,28, 

183 

,29, 

139 

,30, 

190 

!, 29, 

192, 

23, 

192, 

_ \ 

27 , 

192, 

26, 

192, 

25, 

191, 

24, 

190, 

24, 

190, 

24 

:, 195 

,27, 

196 

,26, 

197 

,25, 

197 

,24, 

198 

,25, 

199 

,26, 

200 

• 27* 

280 

i,30. 

193, 

30, 

197, 

30, 

196, 

29 









,203 

,27, 

204 

,27, 

295 

, 27, 

206 

,27, 

207 

,26, 

207 

,25, 

206 

,24, 

205 

!, 25, 

203, 

26, 

203, 

27, 

203, 

28/ 

204, 

29, 

205, 

30, 

206, 

30, 

207, 

29 


DRTR2E’3,23,212,26,212,29,1,1,1 
/ __ 

RETURH 

t ___ 




13656 Octet» occupes 
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ORIC, comme tout ordinateur, possède une pile, dépendante 
du microprocesseur 6502 qui l'équipe. Mais à quoi, cela sert- 
I il ? A plein de choses, serait une réponse guère satisfaisante, 
mais ô combien justifiée ! 


Tout d'abord, voyons ce que 
c'est. La pile est un emplacement 
réservé de 256 octets dans la 
mémoire vive, en page 1 (adres¬ 
ses de # 100 à # 1 FF). Lorsqu'en 
Basic, vous établissez une bou¬ 
cle FOR... TO... NEXT, ou que 
vous appelez une sous-routine 
(GOSUB), l'adresse d'appel est 
sauvegardée dans la pile, ainsi 
que quelques autres informa¬ 
tions, dépendant de l'instruction 
demandée. Le fait d'écrire quel¬ 
que chose dans la pile s'appelle 
empiler. De même, dépiler signi¬ 
fie ôter un élément de la pile. 
Lorsque l'on dépile, c'est le der¬ 
nier élément empilé que l'on 
obtient : la pile est du type LIFO 
(acronyme de Last In, First Out = 
Dernier rentré, premier sorti). La 
figure 1 illustre le fonctionnement 
d'une pile LIFO. Remarquez sur le 
côté droit l'index noté S. C'est le 
pointeur de pile du 6502. (La pile 
ne dépend que du microproces¬ 
seur.) Il indique en permanence 
l'endroit où sera empilé ou dépilé 
le prochain élément. S est un 
registre au même titre que X et 
Y. Mais, n'allez tout de même pas 
vous en servir comme index 


d'une boucle, cela risquerait de 
tout planter ! D'ailleurs, les ins¬ 
tructions qui le concernent sont 
nettement différentes : on ne 
peut donner de valeur à S. Il faut 
transiter par X et les instructions 
de transfert TXS etTSX (qui 
transfèrent respectivement X 
dans S et S dans X). Les autres 
instructions se rapportant à la pile 
sont : PHA (empile le contenu de 
A), PLA (transfère le sommet de 
la pile dans A), PHP (empile P), 
PLP (dépile dans P). D'autres ins¬ 
tructions modifient également la 
pile, mais de façon indirecte : JSR 
(empile le registre-double PC), 
RTS qui dépile ce même registre, 
RTI, qui dépile PC et P (empilés 
par une interruption, mais là, 
c'est l'article du mois pro¬ 
chain...). 

A noter également : par rapport 
à la figure 1, la pile est renversée. 
Le premier élément empilé prend 
place en # 1 FF, le second en 
#1FE, le suivant en # 1FD et 
ainsi de suite... 

Appliquons maintenant ces for¬ 
mules à des petits programmes, 
sans grande prétention... 
Voyons d'abord comment simu¬ 



ler le POP du Basic. Cette fonc¬ 
tion permet d'oublier la dernière 
instruction GOSUB. De même, 
nous allons voir comment faire 
oublier la dernière adresse empi¬ 
lée par un JSR. Il suffit de ces 
quatre instructions : 

TSX 

INX 

INX 

TXS 

Et voilà ! Cela revient à remonter 
le pointeur de pile de deux octets 
(n'oubliez pas que la pile est ren¬ 
versée : sur la figure 1, cela se 
traduirait par une descente de 
deux cases du pointeur S). 
Continuons en visualisant l'état 
des différents drapeaux, conte¬ 
nus dans le registre P. Ce sont les 
listings 1 (programme désassem¬ 
blé) et 1 bis (traduit en un char¬ 
geur Basic). 

Nous allons transférer P sur la pile 
(ligne 1 7), le reprendre dans l'ac¬ 
cumulateur, en faire un double 
afin de ne pas le modifier (ligne 
19). Puis, par une série de rota¬ 
tions, nous allons faire tomber 
ses bits un à un dans la retenue 
C. Par un simple test BCC, nous 
allons afficher le nom du drapeau 
s'il est à 1 (ligne 32) ou un tiret, 
s'il est à 0 (ligne 35). En fin de 
routine, nous restaurons P à sa 
valeur initiale (ligne 55). 

Voyons maintenant quelque 





chose d'un peu plus corsé : 
comment faire des JSR relogea¬ 
bles (indépendants de l'adresse 
d'implantation de la routine) ? En 
effet, si on peut aisément rempla¬ 
cer les JMP par CLC puis par un 
BCC, il n'en va pas de même pour 
les JSR qui ont besoin d'une 
adresse absolue. Regardez le lis¬ 
ting : nous plaçons à une adresse 
fixe, hors de la routine, le code 
du RTS. Au moment d'exécuter 
la sous-routine, nous faisons le 
JSR sur le code du RTS. Nous 
retournerons donc au programme 
source immédiatement. Mais, 
cette opération a empilé puis 
dépilé l'adresse d'appel. Or, 
comme le dépilage du PC con¬ 
siste simplement à incrémenter S 
de 2, l'adresse n'est pas perdue. 
A l'aide du CLC placé avant le 
JSR et du BCC placé après, nous 
nous branchons sur la sous- 
routine. (L'intermédiaire PONT 
n'a pas besoin d'exister, mais il 
montre comment procéder si le 
déplacement est supérieur à 128. 
Le label PONT reprend l'instruc¬ 
tion BCC et envoie sur la sous- 
routine. Afin de ne pas perturber 
la région où est placée cette ins¬ 
truction, nous plaçons, avant le 
label PONT, l’instruction SEC qui 
donnera un résultat "faux" avec 
BCC, donc pas de branchement.) 
La sous-routine doit maintenant 
exploiter l'adresse dans la pile. Je 
vous montre deux façons possi¬ 
bles : 

Version 1 : On transfère S dans 
X, on le décrémente deux fois, on 


Figure 1 


L'accumulateur contient : 
Instruction 

L'accumulateur contient alors . 


retransfère X dans S. Mais le RTS 
ira se brancher juste après le JSR 
retour, sur l'instruction BCC (d'où 
l'intérêt de placer le CLC avant le 
JSR). On place donc un SEC à la 
fin de la sous-routine, ce qui pas¬ 
sera l'instruction BCC sans faire 
le branchement. 

Version 2 : On incrémente de 2 
l'adresse de retour (on va direc- 
tent la modifier dans la pile). 
Deux représente la longueur de 
l'instruction BCC XXXX. Puis, on 
décrémente de 2 le pointeur S, 
afin de "remémorer" l'adresse 
ainsi modifiée. Ainsi, lors du RTS, 
le retour se fera après le BCC, 
plus besoin du SEC. 

Voilà donc deux méthodes pour 
rendre relogeables vos utilitaires, 
de façon fort simple. Exploitez-les 
et envoyez vos créations à la 
rédaction... 

NOTE : Peut-être vous êtes-vous 
étonné de l'instruction LDA$ 
OFF,X. Pourquoi ne pas utiliser le 
mode page zéro, ce qui écono¬ 
mise un octet ? A cause d'un bug 
du microprocesseur ! Aussi sur¬ 
prenant que cela puisse paraître, 
le 6502 est buggé. Il est en effet 
fâché avec les retenues. Dans le 
cas d'une instruction LDA$ FF,X, 
si X est à 1, on devrait obtenir 
l'adresse en # 100. Hélas, non, la 
retenue est perdue, et vous obte¬ 
nez le contenu de #00.» 

De même pour les JP indirects : 
JMP ($5FFF), par exemple, n'ira 
pas se brancher à l'adresse 
contenue en $5FFF (poids faible) 


et $6000 (poids fort), mais celle 
contenue en $5FFF (poids faible) 
et $5F00 (poids fort). 

Ce type de problème est d'autant 
plus gênant que, sur le papier, le 
programe tourne parfaitement. 
A noter également l'utilisation 
peu scrupuleuse de la pile faite 
par certains éditeurs... Ils créent 
un petit programme dans la pile, 
permettant de charger la suite de 
leur soft, et stockent en haut de 
la pile l'adresse de lancement de 
leur programme. Ainsi, pas 
besoin d'auto-RUN. En effet, 
quand vous tapez CLOAD" ", le 
système empile l'adresse de 
retour dans l'interpréteur. Aussi, 
après chargement, cette adresse 
est remplacée par celle d'exécu¬ 
tion de la routine de l'éditeur. Pas 
bête, non ? 

Je n'irai pas jusqu'à vous fournir 
un programme de copie, mais je 
vous conseillerais simplement de 
réécrire une routine de charge¬ 
ment, inspirée de celle de la 
ROM, qui modifie et/ou impose 
son adresse de chargement, ail¬ 
leurs que dans la pile. Vous 
n'avez alors qu'à enlever les 
diverses protections présentes, 
puis de retransférer le tout dans 
la pile, en modifiant le pointeur S 
vers une zone inoccupée de la 
pile, afin de ne pas modifier les 
adresses en haut de pile. 

Au fait, la loi du 11 mars 1957, 
revue et corrigée le 3 juillet 1985, 
n'autorise que les copies de sau¬ 
vegarde. A bon entendeur... 
Salut ! 
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En d, x est une valeur quelconque, servant à bien montrer que c passe 
du sommet de la pile à l’accumulateur. Les opérations b), c), d), e) et fl 
sont effectuées avec la pile du schéma précédent. 
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Yanick BOURREE 



PROGRAMMI 

MYSTERIEUX 


T HEORIC est une revue sérieuse, par laquelle on essaie 
d'apprendre au lecteur un maximum de choses sur sa machine 
favorite. Comme il est bon de se détendre de temps en temps, 
nous vous proposons de taper le programme suivant : résultat, en 
couverture du prochain numéro. 


5 PAPERO:INKO 
10 D0KEH306,10000: HI RES 
20 READX,Y,I 
25 IFI=OTHEN100 
30 IFI<0THENA=0:Z=1 
40 IFI>0THENA=1:Z=0 
50 FORK=1TOABS(I) 

60 CURSETX,Y,1 
70 X=X+A:Y=Y+Z 
80 NEXT 
90 GOT020 

100 CURSET30,70,1:DRAW50,0,1 
110 CURSET100,70,1 :DRAW50,0,1 
115 DRAW0,95,1:DRAW-17,0,1 
120 CURSET117,165,1:DRAW-51,0,1 
125 CURSET47,165,1 : DRAW-18,0,1 
130 DRAW0,—95,1 
150 END 

200 DATA76,41,30,76,42,30 
202 DATA75,43,02,81,43,25 
204 DATA75,44,02,86,44,16 
206 DATA104,44,3,74,45,04 
208 DATA89,45,06,99,45,02 
210 DATA 104,45,5,74,46,03 
212 DATA 90,46,05,104,46,5 
214 DATA 72,47,05,90,47,03 
216 DATA 104,47,6,72,48,05 
218 DATA 91,48,2,105,48,05 
220 DATA 71,49,05,91,49,01 
222 DATA 106,49,4,81,54,06 
224 DATA 81,55,-2,97,52,04 
226 DATA 100,53,2,101,54,2 


228 DATA 102,55,-2,84,57,2 
230 DATA 84,58,02,96,57,02 
232 DATA 96,58,02,70,49,-3 
234 DATA 71,48,-7,72,48,-6 
236 DATA 73,48,-5,74,48,-6 
238 DATA 75,48,-5,71,53,01 
240 DATA 68,55,2,106,50,-2 
242 DATA 107,50,-5,72,6,-6 
244 DATA 108,50,-14,73,5,1 
246 DATA 75,8,-2,108,50,-5 
248 DATA 74,6,-2,109,50,-7 
250 DATA 76,09,-2,77,11,-2 
252 DATA 71,12,-6,72,18,-3 
254 DATA 73,21,-5,74,26,-5 
256 DATA 75,31,-5,76,36,-5 
258 DATA47,162,-2,48,164, -2 
260 DATA 49,166,1,50,167,3 
262 DATA 53,168,2,55,169,7 
264 DATA 61,168,2,63,167,3 
266 DATA65,163,-4,64,159,-5 
268 DATA 60,156,1,58,155,3 
270 DATA58,156,1,57,157, -5 
272 DATA54,156,3,53,157,-6 
274 DATA 52,163,1,51,162,1 
276 DATA 48,161,3,62,158,2 
278 DATA61,156,-6,122,170,6 
280 DATA128,169,2,130,167,-2 
282 DATA131,166,2,135,163,-2 
284 DATA133,162,2,131,163,2 
286 DATA129,164,2,129,157,-7 
288 DATA126,156,3,124,156,1 
290 DATA122,155,3,121,156,2 


292 DATA121,157,-5,119,158,2 
294 DATAI18,159,-6,117,163,-5 
296 DATAI18,168,2,120,169,2 
298 DATA125,157,-5,70,165,-16 
300 DATA 71,181,-5,72,186,2 
302 DATA 73,187,-3,74,187,3 
304 DATA 77,186,6,83,187,04 
306 DATA 86,186,2,84,1B8,02 
308 DATA85,189,-3,88,175,-11 
310 DATA89,165,-10,71,190,2 
312 DATA 66,191,5,62,192,04 
314 DATA 60,193,2,59,194,-2 
316 DATA 59,196,3,61,197,07 
318 DATA 68,196,3,71,197,13 
320 DATA 84,196,1,85,195,01 
322 DATA 86,192,-3,92,165,-10 
324 DATA 93,175,-11,94,186,2 
326 DATA 95,187,-2,96,187,-5 
328 DATA 95,192,-3,96,195,1 
330 DATA 97,196,1,98,197,13 
332 DATA 111,196,3,114,197,7 
334 DATA 120,196,3,122,193,-3 
336 DATA 120,193,2,111,165,-16 
338 DATA 110,181,-5,108,186,2 
340 DATA 105,187,4,99,186,6 
342 DATA 96,187,3,107,188,2 
344 DATA 108,189,1,109,190,2 
346 DATA 111,191,5,116,192,4 
350 DATA 85,61,01,84,62,01 
352 DATA 83,63,01,82,64,01 
354 DATA 81,65,-8,82,72,-2 
356 DATA 83,74,01,84,75,01 
358 DATA 85,76,02,86,77,03 
360 DATA 89,78,04,93,77,03 
362 DATA 95,76,02,97,75,01 
364 DATA 98,74,01,99,73,-2 
366 DATA 100,65,-8,99,64,1 
368 DATA 98,63,01,97,62,01 








370 

DATA 

96,61,1 

31,66,65,02 

410 

DATA109,20,-6,108,19,01 

450 

DATA 

78,67,02,79,68,02 II 

372 

DATA 

64,66,03,62,67,03 

412 

DATAI 10,20,01,111,19,03 

452 

DATA 

74,65,02',76,66,03*1 

374 

DATA 

61,68,1 

32,61,69,01 

414 

DATAI 14,18,03,117,17,02 

454 

DATA 

106,65,1,106,64,2 \ 

37fc 

DATA 

114,65 

2,115,66,3 

416 

DATA119,16,02,121,15,01 

456 

DATA 

101,68,2,102,67,2 

378 

DATA 

117,67 

3,119,68,2 

418 

DATA121,14,02,119,13,02 

458 

DATA 

103,66,4,70,51,06 \ 

380 

DATA 

120,69 

1,65,57,-5 

420 

DATAI 16,12,03,112,11,0** 

460 

DATA 

70,52,06,70,53,07 

3B2 

DATA 

66,56, 

-3,67,56,-2 

422 

DATA109,12,33,107,13,02 

462 

DATA 

70,54,06,71,55,02 

384 

DATA 

68,55, 

-2,69,55,01 

424 

DATA105,14,02,104,15,01 

464 

DATA 

71,56,01,74,56,0; 

386 

DATA 

66,60, 

-3,6/,61,-2 

426 

DATA103,16,01,102,17,-2 

466 

DATA 

83,34,-6,84,32,01 

388 

DATA 

68,62, 

-3,69,64,04 

428 

DATA1Û1,18,-2,100,20,-2 

468 

DATA 

85,31,01,86,32,01 

390 

DATA 

68,59, 

24,70,60,02 

430 

DA T A99,22,-03,98,25,-02 

470 

DATA 

87,34,-6,84,34,03 

392 

DATA 

69,61, 

1,73,56,-10 

432 

DATA 74,06,-2,75,08,-2 

472 

DATA 

84,37,03,90,34,-6 

394 

DATA 

110,59 

,4,110,60,2 

434 

DATA 76,09,-2,77,11,-2 

474 

DATA 

91,35,01,92,36,-2 

396 

DATA 

112,61 

,1,109,64,5 

436 

DATA 78,13.-2, 7 9,15,-2 

476 

DATA 

93,38,01,94,34,-6 

398 

DATA 

113,62 

,2,114,61,2 

433 

DATA 80,16,-2,81,18,-2 

478 

DATA 

97,34,-6,98,34,04 

400 

DATAI 15,60, 

-3,116,57,-5 

440 

DATA 82,20,-2,83,22,-4 

480 

DATA 

98,37,02,98,39,04 

402 

DATAI 15,56, 

-3,114,56,-2 

442 

DATA 84,26,02,85,25,03 

482 

DATA 

70,51,-4,75,55,01 

404 

DATAI 13,55, 

-2,112,55,01 

444 

DATA 88,24,04,92,25,03 

484 

DATA 

69,53,-3,111,53,-3 

406 

DATAI13,63, 

01,106,36,-5 

446 

DATA 94,26,02,96,27,02 

486 

DATA 

110,51,-7,109,51,-7 

408 

DATA107,31, 

-5.108,26,-5 

448 

DATA 74,65,02,76,66,03 

9999 DATA 0,0,0 ■ 



HARDCOPY 


Bruno BOUCHAUD 


SURFftSTEXTæ 
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oici pour les heureux possesseurs d'une imprimante Smith 
Corona Fastext 80 un programme qui leur permettra de copier 
leurs oeuvres sur papier. 


Pour faire une copie d'écran, 
vous avez deux possibilités : 

— faire un programme Basic, et 
il faudra attendre souvent plus 
d'une demi heure, 

— faire un programme en 
Assembleur. 

C'est bien entendu la seconde 
solution que nous avons choisie. 
Vous aurez ainsi votre dessin 
recopié en deux secondes envi¬ 
ron. 

Il faut savoir que la FASTEXT 80 
se met en mode graphique en 
tapant LPRINTCHR$<27);"*''; 
CHR$(0);CHR$(X);CHR$(0) 
ce qui permet d'inscrire X carac¬ 
tères graphiques sur une ligne. 
Les caractères affichés représen¬ 
tent les 8 bits du code ASCII du 
caractère envoyé à l'imprimante. 
Ces 8 bits sont représentés ver¬ 
ticalement, bit 0 en bas. 


BITS 

7 

128 


6 

64 

*64 

5 

32 


4 

16 


3 

8 


2 

4 


1 

2 


O 

1 

* 1 

résultat 


64 


65 est le code ASCII du caractère 
A. Il suffira donc de taper 
LPRINT"A” en mode graphique 
pour voir apparaître deux points 
aux emplacements présentés ci- 
dessus. 

Le programme scrute donc 
l'écran par groupes de 8 lignes de 
la gauche vers la droite de 
l'écran. 


Plusieurs routines sont utilisées : 
F5C1 utilisée avec le registre A 
qui équivaut à LPRINTCHR$(A) ; 
le registe A doit contenir le code 
ASCII du caractère à envoyer. 
F1C8 équivaut à l'instruction 
POINT du Basic. Elle s'utilise 
comme suit : 

PRINT POINT(9,19) équivaut à 
DOKE # 2E1,9:DOKE # 2E3,19: 
CALL # Fl C8 

Le résultat est transféré en 
# 2E1.0 signifie que le pixel est 
éteint et - 1 qu'il est allumé. 
Tapez le programme Basic puis 
faites RUN. Le programme vous 
signalera s'il a trouvé des erreurs 
dans les DATA et vous donnera 
la ligne concernée. 

Une fois le programme rentré cor¬ 
rectement, sauvegardez le pro¬ 
gramme en Assembleur par 
CSAVE"HARDCOPY",A# 7000, 
E # 711E 

Lancez-le par CALL #7000. 
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10 REM ?????????????????? 

20 REM ? HARDCOPY SUR ? 

30 REM ? SMITH CORONA ? 

40 REM ? FASTEXT 80 ? 

50 REM ? ? 

60 REM ? ECRIT PAR ? 

70 REM ? EOUCHAUD BRUNO ? 

80 REM ?????????????????? 

100 FORI=#7Q00T0#710ESTEP9 

101 S0MME=0 
103 F0RJ=0T08 

110 READA$:A=VAL("#"+A$) 

120 SOMME=SOMME+A 
130 POKE<I+J)iA 
140 NEXTJ 
150 READVE 

160 IFVEOSOMMETHENPING:PRINT" ERREUR EN LIGNE : H î 
(200+(I-#7000)/9*10):STOP 
170 NEXTI 

175 FORI=#7117T0#711D:READA*:A=VAL(“#"v A$):POKEI, A : NEXT 
180 STOP 

200 DATA A9,1B,20,C1,F5,A9,41,20,C1,1125 
210 DATA F5,A9,08,20,C1,F5,A9,1B,20,1120 
220 DATA C1,F5,A9,2A,20,C1,F5,A9,00,1288 
230 DATA 20,C1,F5,A9,F0,20,C1,F5,A9,1518 
240 DATA 00 * 201C11F51A21001AO » 001A9,961 
250 DATA 00,85,65,20,FC,70,C9,00,10,847 
260 DATA 07,FO,05,18,A9,80,85,65,20,839 
270 DATA FC,70,C9,00,10,09,FO,07,18,861 
280 DATA A9,40,65,65,85,65,20,FC,70,1065 
290 DATA C9,00,10,09,FO,07,18,A9,20,698 
3D0 DATA 65,65,85,65,20,FC,70,C9,00,1033 
310 DATA 10,09,FO,07,18,A9,10,65,65,683 
320 DATA 85,65,20,FC,70,C9,00,10,09,856 
330 DATA FO,07,18,A9,00,65,65,85,65,884 
340 DATA 20,FC,70,C9,00,10,09,FO,07,869 
350 DATA 18,A9,04,65,65,85,65,20,FC,917 
360 DATA 70,C9,00,10,09,FO,07,18,A9,778 
370 DATA 02,65,65,85,65,20,FC,70,C9,1035 
380 DATA 00,10,09,FO,07,18,A9,01,65,567 
390 DATA 65,85,65,48,8A,48,98,48,18,865 
400 DATA A5,65,20,Cl,F5,68,A8,68,AA,1282 
410 DATA 68,E8,E0,F0,F0,07,98,E9,07,1439 
420 DATA A8,4C,2C,70,18,CO,C8,FO,4E,1134 
430 DATA 48,8A,48,98,48,A9,OD,20,Cl,913 
440 DATA F5,A9,IB,20,Cl,F5,A9,2A,20,1154 
450 DATA Cl,F5,A9,00,20,Cl,F5,A9,FO,1486 
460 DATA 20,Cl,F5,A9,00,20,Cl,F5,68,1213 
470 DATA A8,68,AA,68,A2,00,4C,2C,70,940 
480 DATA 18,8E,E1,02,8C,E3,02,A9,00,931 
490 DATA 8D,E2,02,8D,E4,02,48,8A,48,1022 
500 DATA 98,48,20,C8,Fl,68,A8,68,AA,1243 
510 DATA 68,AD,El,02,C8,60,60 ■ 

100 1"HARDCOPY SUR FASTEXT 00 de #7000 a #7110* 

110 ; 

120 i*Desassemble par 'SUPER DESAS5ENBLEUR ' C. (84) j.p. LAURENT* 

130 i 

140 .0 OFSE OOOO 
150 .0 R017 F1C0 
160 .0 ROI6 02E4 
170 .0 R015 02E2 
100 .0 RO14 02E3 

190 .0 R013 02E1 



Nom 

Prénom 

Adresse 


Ci joint, un chèque de F à l'ordre des 

Editions SORACOM. La Haie de Pan, 35170 
BRUZ 
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200 .0 R000 F5C1 


1030 STA 65 

J 


210 ; 


1040 R008 



220 LDA #1B 


1050 JSR ROOl 



230 JSR ROOO 

• 

1 

1060 CMP #00 



240 LDA ’A 

1 

• 

1070 BPL R009 

Si pixel allume ajoute 1 a 

1'adres- 

250 JSR ROOO 

1 

1 

1080 BEQ R009 



260 LDA #08 

1 

1 

1090 CLC 

se 65 (bit 0). 


270 JSR ROOO 

1 

i 

1100 LDA #01 



280 LDA #1B 

! équivaut en BASIC a LPRINTCHR<(27); 

1110 ADC 65 



290 JSR ROOO 

i 

i 

1120 STA 65 



300 LDA «2A 

! •A‘ïCHR*(8);CHR*(27)i’» 1 1CHR*(0)iCH 

1130 R009 



310 JSR ROOO 

1 

1140 PHA 



320 LDA «00 

! R*(240)iCHR*<0) 

1150 TXA 



330 JSR ROOO 

! 

1160 PHA 



340 LDA #F0 

! 

1170 TYA 



350 JSR ROOO 

: 

1180 PHA 



360 LDA #00 

• 

i 

1190 CLC 

Imprime sur l’imprimante le 

carac- 

370 JSR ROOO 


1200 LDA 65 



380 LD* #00 

• 

1210 JSR ROOO 

tere'dont le code ASCII est 

en 65. 

390 LDY #00 

! mise a zéro des registres et appel 

1220 PLA 



400 ROI 1 

• 

1 

1230 TAY 



410 LDA #00 

i du sous-programme ROOl. 

1240 PLA 



420 STA 65 

• 

1250 TAX 



430 JSR R001 


1260 PLA 



440 CMP #00 

• 

1270 INX 


450 EPL R002 

! Si pixel allume met 128 dans l'a- 

1280 CPX #F0 



460 BEQ R002 

i 

1290 BEQ RO10 

Si X different de 240 alors 

remet 

470 CLC 

i dresse 65 (bit 7). 

1300 TYA 



480 LDA #80 

! 

1310 SBC #07 

Y a son état initial. 


490 STA 65 

! 

1320 TAY 



500 R002 

- 

1330 JMP ROI 1 



510 JSR R001 

! 

1340 R010 



520 CMP #00 

i 

1350 CLC 



530 BPL R003 

' Si pixel allume ajoute 64 a l'ad- 

1360 CPY #C8 



540 BEQ R003 

1 

1370 BEQ RO12 



550 CLC 

! resse 65 (bit 6). 

1380 PHA 



560 LDA ’3 

1 

1390 TXA 



570 ADC 65 

• 

1400 PHA 



580 STA 65 

1 

1410 TYA 



590 R003 


1420 PHA 



600 JSR R001 

1 

• 

1430 LDA #0D 



610 CMP #00 

• 

1 

1440 JSR ROOO 

Si X=240 alors X=0 et fait 

LPRINT 

620 BPL R004 

i Si pixel allume ajoute 32 a l’ad- 

1450 LDA #1B 



630 BEQ R004 

• 

• 

1460 JSR ROOO 

CHRS(13)iCHR*(27)(•♦•iCHRS(O)iCHR 

640 CLC 

! resse 65 (bit 5). 

1470 LDA #2A 



650 LDA #20 


1480 JSR ROOO 

$(240);CHRS(0> 


660 ADC 65 


1490 LDA #00 



670 STA 65 


1500 JSR ROOO 



680 R004 

“ 

1510 LDA #F0 



690 JSR ROOl 

• 

• 

1520 JSR ROOO 



700 CMP #00 


1530 LDA #00 



710 BPL R005 

S Si pixel allume ajoute 16 a l’ad- 

1540 JSR ROOO 



720 BEQ R005 

# 

# 

1550 PLA 



730 CLC 

! resse 65 (bit 4). 

1560 TAY 



740 LDA #10 

• 

1 

1570 PLA 



750 ADC 65 

1 

1 

1580 TAX 



760 STA 65 

1 

1 

1590 PLA 



770 R005 

- 

1600 LDX #00 



780 JSR ROOl 

1 

1 

1610 JMP ROI 1 



790 CMP #00 

1 

t 

1620 ROOl 



800 BPL R006 

i Si pixel allume ajoute 8 a l’adres- 

1630 CLC 



810 BEQ R 006 


1640 STX RO 13 



820 CLC 

! se 65 (bit 3). 

1650 STY R014 



830 LDA #08 

• 

1 

16oû LDA #00 



840 ADC 65 

1 

1 

1670 STA RO15 



850 STA 65 

1 

• 

1680 STA RO16 

Fonction POINT du BASIC avec X en 

860 R006 

- 

1690 PHA 



870 JSR ROOl 

• 

1700 TXA 

1E1 et Y en 2E3 et résultat 

en 2E1. 

880 CMP #00 

1 

• 

1710 PHA 



890 BPL R007 

! Si pixel allume ajoute 4 a l'adres- 

1720 TYA 



900 BEQ R007 


1730 PHA 



910 CLC 

! se 65 (bit 2). 

1740 JSR RO17 



920 LDA #04 


1750 PLA 



930 ADC 65 

1 

• 

1760 TAY 



940 STA 65 

! 

1770 PLA 



950 R007 

- 

1730 TAX 



960 JSR ROOl 


1790 PLA 



970 CMP #00 

: 

1800 LDA RO13 



980 BPL R008 

! Si pixel allume ajoute 2 a l’adres- 

1810 INY 



990 BEQ ROOB 

1 

1820 RTS 



1000 CLC 

i se 65 (bit 1). 

1830 R012 



1010 LDA «02 

{ 

1840 RTS 



1020 ADC 65 

1 

1850 .E ■ 
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VALOCTET 

Maurice LE GUYADER 

I l est des programmes qui paraissent tellement simples qu'on 
ne penserait pas à les publier. Pourtant, lorsque le sujet est 
bien traité et la présentation soignée, de telles réalisations 
peuvent donner des idées. 


VALOCTET est de ceux-là. Il per¬ 
met de calculer la valeur d'un 
octet pour l'adressage d'une 
carte 8 entrées-sorties, par exem¬ 
ple. ATTENTION : l'utilisation du 
PRINT a commercial limite l'utili¬ 
sation du programme au seul 
ATMOS. 

1 ) Calcul sur 1 octet : 

Tapez des 1 sous les bits corres¬ 
pondants. L'ordinateur ajoute les 
0 et donne la valeur de l'octet en 
binaire, en hexadécimal et en 
décimal. 

100 1 
105 • 

110 ’ 

115 ’ 

120 ’ 

125 'calcul de la valeur d’un octet 
130 'pour l’adressage d’une carte 
135 ’B entrées 8 sorties 
140 ’en fonction des bits a 1 
145 ’et des bits a 0 
150 ’les REM peuvent etre supprimées 
155 CLS: PAPER0: INK2 
160 PRINT914,1;*1 = lampe allumée 1 
165 PRINT94,2;‘0 ou ESPACE = lampe et 
einte 1 

170 PRINT93,4;*l’octet 2 est la copie 
de l’octet 1* 

175 PRINT96,6;"vous pouvez mettre les 
8 bits 1 

180 PRINT92,7;M1 ou 0) de l’octet LA 
MPES n’importe’ 

185 PRINT96,8;*ou sur les octets 1 et 

2’ 

190 PRINT93,10;*les 0 ne sont pas obi 
igatoires 1 

195 PRINT94,25;*<= déplacements 
0 1 SPC =>■ 

200 'présentation des 2 octets 
205 PRINT910,12;‘-octetl—octet2-‘ 

210 PRINT 94,13; *bits , CHRi(27) , D , CHR 
♦(27) 1 S7654321076543210 , CHRt(27) , P 1 
215 PR1NT98,14;CHR$(27) , 6’CHRK27) , Q 1 
927,14;CHR<(27) 1 P* 

220 'préparation de l’affichage 
225 ’des résultats 


2) Animation de lampes (effet 
chenillar) 

Placer des 1 pour les lampes allu¬ 
mées, le deuxième octet étant la 
copie du premier, les lampes peu¬ 
vent avancer ou reculer comme 
dans la réalité. 

Exemple : 

octet 1 octet 2 octet calculé 

7654321076543210 76543210 

11111 00011111 

(5 lampes allumées) 

11111 10001111 

(les lampes avancent) 

230 PRINT 99,16; ‘valeur de L’OCTET 1 
235 PRINT 99,18; ’en binaire 1 CHR*(27 

) ‘S 1 

240 PRINT 95,19; *en hexadécimal 1 CHR 
$(27) 'ô 1 

245 PRINT 99.20; ‘en décimal 1 CHR$(27 

) ‘G 1 

250 PRINT 98,22;"’S’ pour stopper 1 
255 P0KE#26A,3:’ curseur allume 
260 'initialisation des variables 
265 P=10: R2=0: I=0:LS=0 
270 'CLAVIER affichage des 1 et des 0 
275 ’ déplacement du curseur 

280 REPEAT 

285 : 'place le curseur 

290 : 'sur le bit 7 de l’octet 1 

295: PRINT 9P,14; 

300 : GET G$:’lecture du clavier 
305 : 'si fléché gauche... 

310 : IF 6$=CHR4(8) AND P>10 THEN 
P=P-1: G$= 11 

315 : ’si fléché droite... 

320 : IF G$=CHR$(9) AND P<25 THEN 
P=P+1: G$= 11 
325 : ’si S... 

330 : IF G$= 1 S 1 OR G$= 1 s 1 THEN CLS: 
PING: END 

335 : ’si 0 ou 1 ou espace 
340 : IF G$='0 1 OR G$= 1 ! 1 OR G$=* 1 
THEN PRINT9 P,14; G$: IF P<25 THEN P=P 
♦1 

345 ONTIL G$=CHR$(13):’touche RETURN 
350 P0KE#26A,2:'curseur eteint 
355 'lit les BITS affiches en partant 
360 ’de la gauche et met des espaces 


ATMOS 

décembre 1985 
VALOCTET 


365 

370 

375 

380 

385 

390 

395 

400 

405 

410 

415 

420 

425 

430 

435 

440 

445 

450 

455 

460 

465 

470 

475 

480 

485 

490 

495 

,14;' 

500 

505 

510 

515 

520 

525 

530 

535 

540 

545 

550 

555 

560 

565 

570 

575 

580 

585 

590 

595 

600 

605 

610 

615 

620 

625 

630 

635 

640 

645 

650 

655 


’jusqu’a la rencontre d’un 1 
’(code ASCII 49) ou du bit 7 de 
’l’octet droit 
REPEAT 

: 02=SCRN( 10+1,14) 

: IF 02=49 THEN 405 
: PRINT9 10+1,14; CHR$(32) 

: 1 = 1+1 

UNTIL 02=49 OR 1=8 
'efface les chiffres 8 bits 
'plus loin jusqu’au bit 0 de 
’l’octet 2 
P=I 

REPEAT 

: PRINT910+P+8,14;CHR$(32) 

: P=P+1 
UNTIL P>7 

'cherche par l’instruction 
’SCRNIX.V) le 1er bit a 1 et 
'analyse les 7 bits suivants 
FOR J=I T0 1+7 
: L=J: IF L>7 THEN L=L-8 
: LS=7-L 

: 02=SCRN(10+J,14) 

: ’si 02=32 (code ASCII espace) 

: ’on affiche un 0 
: IF 02=32 THEN0X=4B: PRINT910+J 
'O 1 

: 'affiche l’octet en binaire 
: PRINT920+L,1B;CHR$(02) 

: 'calcul du poids de l’octet 
: ’on retranche 48 de 02 
: ’si 02 est égal a 48 (code 
: 'ASCII de 0) alors 02 vaut 0 
: '(bit a 0) 

: ’si 02 est égal a 49 (code 
: 'ASCII de 1) alors 02 vaut 1 
: Mbit a 1) 

: 02=02-48 

: 'additionne les valeurs 
: ’des bits 
: 'rappel 240 = 1 

: ’ 2tl = 2 

: ’ 242 = 4 

: ’ 243 = 8 

: ’ 244 = 16 

: ’ 245 = 32 

: ’ 246 = 64 

: ’ 247 = 128 

: ’ 02= Ooul (état du bit) 

: R2=R2+(02*(2 A LS)) 

NEXT 

'affiche le résultat 

’en hexadécimal 

PRINT922,19;HEX$(R2)SPC(4) 

’en décimal 

PR1NT922,20;(R2)SPC(4) 
PINGr’alerte de fin de calcul 
'on recommence 
GOTO 255 ■ 
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45 F 


— Un jeu d’arcade 
en langage machine 
sur un thème que 
personne n 'avait osé 
aborder... 


35 F 


MICROLOGIC 

présenta 




35 F 


V 

1 * 


OKIC1 ET ATMOS 


po FffiVf WUOJ 


— Enfin un jei 
d’arcade en langage 
machine pour le. 
tout petits ! 


BON DE COMMANDE 


A retourner aux Editions SORACOM — La Haie de Pan — 35170 BRUZ 


Nom .Prénom 

Adresse . 


Livres 

□ Communiquez avec votre ORIC-1 ATMOS .. 

□ Mieux programmer sur ORIC-1 et ATMOS .. 

□ Apprenez l’électronique sur ORIC et ATMOS 

□ Naviguez sur ORIC et ATMOS. 

Ci-joint en règlement un chèque de. 


Cassettes 

145 F □ Poopy .35 F 

110 F □ Water Panic.35 F 

110 F 



F + 10 % de port. 
































































































(Pour les seuls numéros encore disponibles 
en mai 1986) 

NUMERO 4 

SYNTHETIS : logiciel d'accompagnement du 
synthétiseur vocal. ESSAI DE LA PHS 60 
interface PERITEL/UHF. Recopie graphique 
sur GP 50. Banc d'essai du modem DIGITE- 
LEC DTL 2000. Drapeaux : programme de 
jeu. Interfaces joystick : comparatif. 


NUMERO 16 

Le TELESTRAT arrive Animation graphique 

améliorée. Musique : un choral de Bach. Elé¬ 
ments de programmation en Basic. Un jeu : 
l'Escadron suisse. Le MINITEL : périphérique 
intelligent. Deux recopies d'écran pour 
GP 100. Un logiciel pour les petits : POULE. 
Jasmin et Microdisc : ils communiquent. 

NUMERO 17 


AU SOMMAIRE DES 

ANCIENS NUMEROS DE 


1.0 de LORICIELS CROCKY : 
jeu. Compte bancaire : gérez-le sur MICRO¬ 
DISC (1). Compatibilité DTL 2000 et JAS¬ 
MIN. 


NUMERO 11 


Hors-série rempli d'une multitude de pro¬ 
grammes en tous genres. 


NUMERO 6 

Essai de l'XL DOS. AUTOVERIF pour amé¬ 
liorer la fiabilité du chargement cassette. 
Essai de la carte 8 E/S MAGECO. VOICE : 
ORIC parle sans interface. RENUM-DESTRUC 
renumérotation et suppression de lignes 
Basic. Les interruptions : une horloge. 
Master-Mind : jeu. ANADIS : analyse de dis¬ 
quettes au format MICRODISC. La Jasmin- 
Printer (Brother Ml009) à l'essai et recopie 
d'écran pour cette imprimante. 

NUMERO 7 

BLURK'S : jeu. Editeur de caractères pour 
redéfinir le jeu de caractères. Calculs en lan¬ 
gage machine pour aller plus vite. Lecture et 
Ecriture de secteurs sur Jasmin ou comment 
réparer une disquette. Tour d'horizon des 
Moniteurs-Assembleurs du commerce. Le 
magnéto sans angoisse ou comment amélio¬ 
rer le chargement des cassettes. Essai du 
RANDOS. Essai du crayon optique. Recopie 
d'écran sur MCP 40. L'interface TVS. 

NUMERO 8 

Une alimentation secourue pour se jouer des 
coupures de courant. L'ORIC et les SPRITES. 
Un coffret pour ORIC : tout en un. Comment 
brancher ORIC sur un moniteur monochrome. 
Domptez votre MICRODISC. Modifier le 
T-DOS. Logiciel de Facturation. Implantez du 
binaire dans des DATA : CREADATA. 

NUMERO 10 

Essai du modem TONIC. Le Basic Français. 
Utilitaires pour vous plaire 11 ). Modifications 


NUMERO 12 

Ecrivez votre jeu d'aventure : COLDITZ. Le 
DTL 2000 + un serveur pas cher. Schéma 
électronique de l'ORIC. Essai de la table gra¬ 
phique GRAPHISCOP. Le partage mémoire de 
l'ORIC. Utilitaires pour vous plaire (2). Un 
Moniteur-Assembleur. Compte bancaire 
(suite et fin). 

NUMERO 13 

Transfert du FORTH sur MICRODISC. TAN¬ 
DEM 1 3 un logiciel pour le DTL 2000. Jouez 
avec les couleurs de l'ORIC. Utilitaires pour 
vous plaire (3). Créer des fenêtres sur ORIC. 
MICRODISC et JASMIN : ils communiquent. 
City on Raid : jeu. 

NUMERO 14 

Le SEDORIC à la loupe. Un éditeur de carac¬ 
tères en langage machine. CONJUGAISON : 
ORIC à l'école. Sortir le son sur le téléviseur. 
Fenêtres (fin). Calculez votre Epargne- 
Logement. Scrolling latéral. Sauvegarde des 
variables avec l'ORIC-1 . Un utilitaire : Super 
Désassembleur. Jouez avec les Mots- 
Cachés. 

NUMERO 15 

Une imprimante à l'essai : la MT 80S. Spiro¬ 
graphe : rosaces et arabesques. TRON les 
motos de lumière (jeu). Essai de la carte 256 
couleurs de Microfutur. Editeur de secteurs 
sur Jasmin. MUSICORIC pour que l'ORIC-1 
devienne musicien. Carte série pour liaison 
avec MINITEL. Educatif : le moteur à 4 
temps. Redéfinition de caractères pour 
EASYTEXT. 


Le TELESTRAT se présente. Transfert de 
l'écran TEXT en HIRES (1). Conversion du 
binaire en DATA. ORICTEL : logiciel d’appli¬ 
cation de la carte série Minitel. Recopie rapide 
sur imprimante mode texte. Ecriture évoluée. 
LEONARD : utilitaire de dessin ( 1 ). Fiches de 
paye : comment calculer les salaires avec 
ORIC. Jaquettes de cassettes pour GP 50. 
Catalogue amélioré sur Jasmin. 

NUMERO 18 

Un drive 3"1/2 à l'essai. Triphonie : l'ORIC 
devient orgue. Connaissez-vous les objets 
fractals ? Le Devin : chirologie ou jeu ? Un 
jeu : Frog Panic. Pour lister un programme à 
partir du MINITEL (et de la carte série) : 
MLIST. Accordez vos instruments de musi¬ 
que avec Fréquencemètre. Text-Hires (fin). 
Léonard (suite). Deux recopies d'écran : 
GP 550 et Brother M1009 (Jasmin Primer). 
Lister l'EPROM du Microdisc. 

NUMERO 19 

Léonard : fin de l'utilitaire création graphique. 
Modifications de l’ATMOS et du MICRO¬ 
DISC. Un mini-interpréteur. Protection du 
HIMEM. Le tri en langage machine. Jeu édu¬ 
catif : EUROP'ORIC. En savoir plus sur le 
SEDORIC. Compte bancaire : gérez-le sur 
JASMIN. Utilitaires pour vous plaire (4). 

Les articles et programmes rappelés ci- 
dessus ne forment que l'essentiel des diffé¬ 
rents numéros de THEORIC cités. Les essais 
des différents logiciels, les trucs et astuces, 
etc. sont autant d’arguments qui devraient 
vous inciter à compléter votre collection de 
THEORIC. 
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t e mois-ci, nous allons continuer l'analyse détaillée du traitement des 
verbes. Notons que le traitement des verbes constitue la partie la 
plus longue d'un programme d'aventure, mais aussi que cette 
méthode, parfaitement structurée, est celle qui assure la plus grande rapi¬ 
dité d'exécution. 


Marcel LEJEUNE 


REMPLIR 

Cette fonction qui ne s'applique 
qu'au bidon est traitée en 4 
lignes. 

900 - REM REMPLIR 
910 - Si l'on tente de remplir 
autre chose qu'un bidon vide, on 
a tout faux et on reçoit le mes¬ 
sage qui va bien (ligne 2820 et 
suivantes). 

920 - De même, on ne peut rem¬ 
plir le bidon ailleurs que dans la 
fontaine. 

930 - Si toutes ces conditions 
sont remplies, alors le bidon l'est 
aussi. 


TUER 

Le traitement de ce verbe est 
aussi simple que le précédent. On 
commence par la traditionnelle 
ligne de remarques : 

950 - REM TUER 
960 - On ne peut tuer que le 
garde qui patrouille à l'entrée de 
la forteresse. 

980 - Il faut impérativement déte¬ 
nir le poignard pour pouvoir tuer 
le garde. 

LIRE 

Cette commande paraît un peu 
plus complexe, mais ne l'est pas 
en réalité ; sa longueur est due au 
fait que trois cas sont envisagea¬ 
bles. 

1030 - REM LIRE 

1040 - Comme d'habitude, on a 


le droit à un message narquois si 
l'on essaye de lire autre chose 
que ce qui est écrit : 

- sur le petit morceau de papier 
trouvé dans la salle n° 1, 

- sur la feuille collée dans l'ar¬ 
moire du géolier, 

- sur le plan du château. 

1050 - Sur le petit morceau de 
papier, on trouve le code qui ser¬ 
vira à ouvrir la porte du coffre 
situé dans le bureau du comman¬ 
dant. 

1060 - Il faut absolument trans¬ 
porter le papier pour pouvoir le 
lire. 

1080 - Idem pour le plan du châ¬ 
teau. 

1065 - Le plan est sans intérêt et 
ne vous apprendra rien. Dom¬ 
mage ! Cette opération n'aura 
servi qu’à retarder votre progres¬ 
sion. 

1095 - On ne peut lire le message 
situé dans l'armoire que si l'on se 
trouve dans le bureau du géolier. 
1100 - Ce message vous indique 
(en allemand, natürlich... ) le 
numéro de l'anneau que vous 
devrez faire tourner pour pouvoir 
sortir de l'écurie où vous vous 
êtes laissé enfermer. 

ASSOMMER 

La structure de cette instruction 
est strictement identique à celle 
du verbe TUER et il serait fasti¬ 
dieux de vous imposer à nouveau 
une description détaillée. Sachez 
néanmoins que seule la senti- 
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TELESTRAT : soyez prêt à communiquer ! 


La communication a toujours été vitale à tous les 
niveaux de l'entreprise comme de la vie courante, et 
la télématique a apporté un progrès considérable au 
niveau de la rapidité et de la diversité de la 
communication. Le MINITEL a marqué une date dans 
l'approche de la télématique publique, et il était 
normal qu’ORIC conçoive et réalise le premier 
micro-ordinateur qui mette les applications 
télématiques à la portée de tout un chacun. Le 
TELESTRAT, outre toutes les applications que l'on 
peut attendre d’un micro-ordinateur moderne, vous 
permettra de constituer, sans aucune connaissance 
particulière, un serveur télématique, un répondeur 
téléphonique qui enregistre, affiche et écrit, une 
borne de communication, des liaisons à distance 
entre micros, bref le TELESTRAT est un 
micro-ordinateur qui COMMUNIQUE ! 

et particulièrement d'une qui permet de le raccorder à un 
MINITEL. Avec le TELESTRAT, les P&T vous offrent le moniteur et le MODEM ! Le TELESTRAT peut se servir du 
MINITEL comme d'un terminal, utiliser son écran et même son clavier, et peut ainsi communiquer par téléphone avec les 
serveurs, avec un autre TELESTRAT relié lui aussi à un MINITEL, échanger des écrans graphiques, des pages de textes, 
des programmes, des partitions de musique (codées MIDI bien sûr..) Le TELESTRAT peut également servir de terminal 
intelligent du MINITEL: relié à un moniteur RVB, il permet d'avoir un MINITEL en couleurs, il peut stocker sur disquette des 
pages VIDEOTEX ou tout ce qui peut passer par un MINITEL, et les sortir sur une imprimante tout à fait standard. Il peut aussi 
devenir un serveur monovoie particulièrement puissant et rapide, consultable depuis un simple MINITEL. 

Des logiciels pour développer sa propre télématique 

Celte utilisation télématique est bien sûr à la portée de chacun et ne demande 
aucune connaissance préalable d'un quelconque langage do programmation : 
en eltet, le TELESTRAT est livré avec la cartouche TELEMATIC qui permet 
d'en taire un véritable serveur monovoie privé A l'aide de menus simples 
et du curseur ou du joystick (ou de la souris en option), vous rédigez vos pages 
au standard VIDEOTEX (celui utilisé par le MINITEL et par de nombreux autres 
systèmes télématiques), incorporez des écrans graphiques, constituez des 
arborescences (la structure qui établit avec le correspondant un véritable 
dialogue à distance). Les pages sont éditées en couleurs, avec toutes les tailles 
de caractères et avec une grande simplicité ^utilisation : mode éditeur per¬ 
mettant le déplacement de blocs, l'insertion, la suppression etc.. Les arbo¬ 
rescences sont gérées à partir de 8 commandes seulement ! Visualisées 
en pleine page, elles peuvent être imprimées Avec le MICRODISC, une 
arborescence peut gérer jusqu'à 1000 pages ! Une BAL (boite à lettres) 
peut être insérée à n'importe quel endroit de l'arborescence avec accès libre ou 
accès codé par mot de passe, temporisation, possibilité de consultation à 
distance etc.. 

Le serveur ainsi constitué peut servir en mode TEST (interrogé par le minitel 
pour voir les conditions réelles d'utilisation, en mode SERVEUR, c'est à dire 
interrogé via le téléphone par un autre MINITEL ou un autre TELESTRAT, el 
enfin en BORNE DE COMMUNICATION, c'est à dire complètement autonome, 
avec interrogalion sur place, sans passer par le téléphone ou le MINITEL. 




Quelques applications ... 


Dotés de telles possibilités, d'une si grande facilité d'emploi (n'importe où, il suffit de le relier à un MINITEL) , le TELESTRAT 
s'annonce d'ores et déjà comme un extraordinaire outil de communication, aux applications innombrables : la première et la 
plus inattendue est qu'il constituera un moyen de télécommunication privilégié pour tous ceux qui ont besoin d'une trace 
écrite (une application intéressante pour les sourds et les malentendants par exemple ! ). Le TELESTRAT pourra être au 
service de toutes les professions libérales un répondeur MINITEL, qui décroche le téléphone, informe, enregistre, imprime, 
peut raccrocher et même s'interroger à distance! L’ecriture téléphonique est née ! 

Les serveurs sont déjà présents dans toutes les branches du commerce mais ils ont été jusqu'ici réservée aux grandes 
entreprises capables de posséder ou de louer un serveur. Maintenant, grâce au TELESTRAT, n'importe quel commerçant 
pourra mettre son catalogue, son tarif, ses promotions à portée de clavier : dans la journée les clients pourront l’interroger sur 
place en attendant, et en dehors des heures d’ouvertures, ils pourront également s'informer via le MINITEL, laisser des 
messages, ou des commandes qui seront enregistrés, et lus le lendemain ! 

Dans un salon, un grand hôtel, un grand magasin ou n'importe quel endroit où le public peut avoir à demander de 
l'information, le TELESTRAT utilisé en borne de communication permet de disposer 24 heures sur 24 d'un outil 
conversationnel, permanent, et d'une capacité de stockage et de diffusion de l’information considérable. 































CARACTERISTIQUES TECHNIQUES 


Processeur : 6502,1 MHz 

Mémoire : 64 ko RAM, 48 ko ROM ( MONITEUR: 8 ko, 
BASIC: 24 ko, MINITEL: 8Ko ) . Possibilité de 64 ko 
suplémentaires (RAM, ROM, EPROM...) 

Clavier : QWERTY / AZERTY commutable par soft. 

Son : 3 canaux, + canal de bruit mixable. Sortie si r prise 
Péritel (son dans le moniteur) 

Affichag e: 8 couleurs . Mode texte : 40 colonnes, 28 
lignes - Mode haute résolution : 240 x 200 points. 
Alimentation : 220 V. par Boitier externe avec inter¬ 
rupteur. Alimente 1 TELESTRAT et 1 Drive 
Dimensions : 348 x 260 x 71 mm 


Interfaces : - Vidéo : Péritel (auto alimentée, son 
dans le téléviseur) 

- Standards : Parallèle Centronics - Série RS 232 C 

- 2 joystick type STANDARD - Souris. 

- Mémoire de masse : Interface cassette avec 
télécommande, Contrôleur de disquette (jusqu'à 4 
lecteurs). 

- Original : Péri-informatique (MINITEL) - extension 
MIDI (musique) 

- Divers : Bus d’extension complet, identique à celui 
de r ATMOS. 

Divers : Bouton de RESET universel 


LE BASIC DU TELESTRAT 


BASIC d'un type nouveau : compilé à l'entrée de la ligne. La facilité d'édition d'un langage interprété, la rapidité 
d'un langage compilé, donc de 2 à 100 fois plus rapide que tous les BASIC sur micro-ordinateurs. Basic structuré 
(définition de procédures, extension du vocabulaire). Variables : jusqu'à 16 caractères significatifs. Procédures récursives 
Editeur : type pleine page. Correction des erreurs de syntaxe à l’entrée de la ligne. Toutes facilités de recherche, 
échanges d'instructions, renumérotation, destruction, liste des variables etc... Vocabulaire lié à l'édition: LIST, 

SUST, MERGE, DELETE, RENUM, NUM, SEEK, CHANGE, TRACE, CONT, DPVAR ... 

Les ordres généraux : FOR..TO..STEP...NEXT, COUNT, ENDC, WORD, ENDW, AWORD, GOTO,__ 



GOSUB, RETURN, POP, IF...THEN...ELSE, ON...GOTO, ON...GOSUB, PRINT, SPRINT, LPRINT, 
USING, DATA, READ, RESTORE, DIM, G ET, INPUT, POKE, DOKE, REM, RANDOM, 

MOVE, SWAP, ERR, ERRGOTO, RESUME, ERROR, CALL, USER, USR 
Les opérateurs et fonctions : AND, OR, XOR, >, <, +, -, *, /, ASC, LEN, INSTR, 

CHR$, BIN$, HEX$, LEFT$, RIGHT$, MID$, MIDDLES, UPS, LOS, LOBS, 

KEYS, SPCS, STRINGS, ABS, PEEK, DEEK, INT, SGN, NOT, LN, LOG, 

SIN, COS, TAN, ATN, EXP, RND, SCRN, POINT, PI, FRE 
Gestion des Entrées/sorlies : Tous les périphériques sont gérées de la même 
façon, et peuvent être échangés, modifiés etc.. 4 fenêtres d'écran, le clavier, 
la souris, le lecteur de disquettes, l'imprimante etc., sont autant de péri¬ 
phériques. Vocabulaire lié aux E/S : OPCH, CLCH, WIDTH, INK, 

PAPER, WINDOW, LWIDTH, LUNE, LFEED, LBUF, LOUT, 

SSPEED, SMODE, SRBUF, SEBUF, TEXT, HIRES, LORES, 

KEYIF, AZERTY, QWERTY, ACCENT, KEYDEF, KEYUSE, 

VUSER ... La plupart des E/S sont bufférisées, c'est à dire que leur 
appel n’arrête pas le fonctionnement de l'ordinateur. 

Le son : SOUND. MUSIC. PLAY. SHOOT... Les graphismes : LINE, 

CURSET.CURMOV, DRAW, BOX, ABOX, PAINT, CIRCLE, ELLIPSE, 

CHAR, SCHAR, TCURSET, TCURMOV, TDRAW, TADRAW, TABOX etc.. 


c J ^ 



LE MICRODISC 


Technique : Lecteur 3 pouces double densité 
double face - Alimenté par l'alimentation du 
TELESTRAT - Capacité : 360 à 400 ko 
Système d'exploitation : STRATSED, compatible 
avec le SEDORIC - N’empiète pas sur la mémoire uti¬ 
lisateur - Ultra rapide: transfert 12 à 20 Ko par seconde 
(écriture / lecture) - Peut gérer jusqu'à 4 lecteurs . Extrait 
du vocabulaire général : SDIR.LDIR, SDIR, LOAD, 
SAVE, SAVEU, REN, STATUS, PROT, INIT, 


DEL, BACKUP, COPY, SYS, DNAME 
Gestion de fichier : Permet l'ouverture simultanée 
de 63 fichiers. Séquentiel : OPEN, CLOSE, PUT, 
TAKE, APPEND, REWIND, JUMP, BUILD, 
TYPE, LTYPE, STYPE, EOF, FT - Direct : OPEN, 
CLOSE, PUT, TAKE, FIELD, LSET, RSET, SN, 
SL - Disque (permet de travailler au niveau du secteur) : 
OPEN, CLOSE, PUT, TAKE, FIELD, LSET, 
RSET, PMAP, SMAP, CRESEC, FRSEC 


Fabriqué et garanti UN AN 
pièces et main d'œuvre par 
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75009 - PARIS 
Tel. (1)42 81 20 02 
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TELESTRAT 



TELESTRAT : c'est un micro-ordinateur 


Pour répondre d'avance à la question : "Un micro-ordinateur, à quoi celà peut-il servir aujourd'hui ?", nous avons bien sûr 
développé le TELESTRAT autour de l'application télématique, mais c'est aussi et avant tout un micro-ordinateur moderne, 
puissant et qui peut faire tout ce que l'on peut attendre d'un bon micro comme applications domestiques ou professionnelles. 

Un HYPER-BASIC hyper-puissant ... Conçu autour d'un microprocesseur 6502, le 

TELESTRAT dispose de l'un des plus puissants BASIC existant à l'heure actuelle sur un micro familial : plus de 250 
instructions incluant celles du système d'exploitation du disque (STRATSED), un éditeur pleine page, 45 kOctets à la 
disposition de l'utilisateur, l'HYPER-BASIC du TELESTRAT est aussi le plus rapide : étant compilé à l'entrée de chaque 
ligne de programme, il s'exécute 2 à 100 fois plus vite que n'importe quel autre programme identique non compilé. 

La Compatibilité Oric... Les ORIC 1 et ATMOS sont les micro-ordinateurs familiaux qui possèdent la 
plus importante bibliothèque de logiciels en français : nous avons inclus dans le TELESTRAT un programme qui le rend 
100% compatible avec toutes les cassettes pour ORIC 1 ou ATMOS et avec les disquettes non protégées ! Il 
dispose donc dès sa naissance de plus de 2000 programmes de jeux, programmes éducatifs, utilitaires etc.. Outre son 
BASIC, le TELESTRAT pourra également recevoir un Langage C, un Forth, un PASCAL, un Super Assembleur etc.. Associé 
au STRATSED du MICRODISC, le TELESTRAT s'annonce comme un outil de développement, d'éducation, de musique et 
de programmation extrêmement puissant. 

Des connexions tous azimuts ! Conçu pour communiquer, le TELESTRAT est doté de 


nombreuses interfaces et des prises d'entrées/sorties lui permettant de se raccorder à peu près à tous les périphériques : (8) 
une sortie vidéo RVB-PERITEL pour un moniteur ou un téléviseur couleurs, (10&11) 2 prises pour joysticks standard ou une 
souris spéciale, (4) une sortie contrôleur pour brancher une ou plusieurs unités de disquettes, (9) une prise pour 
magnétocassette avec télécommande, (5) un BUS d'extension pour les interfaces supplémentaires, 2 ports pour cartouches 
ROM ou RAM (sur le dessus), (1) une entrée/sortie RS 232 (le système le plus répandu pour la communication entre micro¬ 
ordinateurs), (6) une sortie imprimante au 
standard CENTRONICS / parallèle (là encore le 
plus répandu), (7) une extension MIDI qui est le 
standard des instruments de musique 
électronique (on pourra faire jouer des 
V \ t t iiiiifliiiiiH afiM synthétiseurs, stocker des programmes de 

synthés, des séquences musicales, écrire des 
,JL 1. JL JL, I 1 partitions, enseigner le solfège etc..). Enfin, on 

■L 1 ;l ' 17 ' Ci) (£) Ci Ci Q) (ü (z) Vi'Ci- Ci trouve (2) la prise de l'interface MINITEL décrite 

plus haut et le fil de téléphone (12) 




LE MICRODISC ORIC 

Déjà expérimenté sur la gamme ORIC, le MICRODISC est 
un enregistreur/lecteur de disquettes 3" (7cm) dont la 
rapidité et les performances sont incomparables. Doté 
d'un lecteur double tête, il permet une capacité de 
stockage de 400 kOctets. Du type lecteur esclave, il est 
économique et permet d’augmenter le nombre de 
MICRODISC jusqu'à stocker 1.6 Mégaoctets pour un prix 
introuvable sur le marché. Le STRATSED, son système 
d’exploitation, permet de développer des applications de 
fichiers, de transfert, de stockage avec une grande rapidité 
(12 à 20 koctets transférés par seconde en lecture comme 
en écriture) 

Des applications en cartouches 

Les cartouches permettront de nombreuses applications en accès 
immédiat : les cartouches HYPER-BASIC et TELEMATIC sont déjà 
livrées d'origine. Les cartouches ROMORIC1 et ROMATMOS qui 
permettent la compatibilité avec les autres ordinateurs ORIC. Très pro¬ 
chainement, de nombreuses cartouches de langage seront disponibles : 
FORTH, Compilateur C, Super-Assembleur etc.. La cartouche 
MIDI sera livrée avec le boitier d'interface ramenant les 5 prises standard 
du MIDI à la prise unique du TELESTRAT. Los applications avec les 
synthétiseurs sont considérables : séquenceurs, mémorisation de 
programmes, de sons échantillonnés, écriture musicale etc.. Avec 
l'application télématique, on pourra même échanger de la musique par 
MINITEL ! Bien sur. des applications professionnelles (traitement de 
textes, tableurs, bases de données etc..) et des jeux seront également 
développés. 


- 

M-Profession- 

Adresse- 

Code_Ville_ 

Je souhaite être contacté par le point-conseil ORIC 
Le plus proche de mon domicile. 

J'envisage pour le TELESTRAT 

□ une utilisation privée 

□ une utilisation profesionnelle 
Le TELESTRAT m'intéresse pour 

□ son application en tant que micro-ordinateur 

□ une application TELEMATIQUE 

Je possède déjà un micro-ordinateur DOUI DNON 

























nelle qui détient le trousseau de 
clés peut être assommée et uni¬ 
quement à l'aide de la barre de fer 
que l'on aura pris soin de ramas¬ 
ser dans le garage. Dès que la 
sentinelle est assommée, on peut 
lui prendre son trousseau de clés 
qui pemettront d'entrer dans le 
bureau du commandant de la for¬ 
teresse. 


DONNER 

Cette opération, très simple éga¬ 
lement, ne s'applique qu'au bidon 
que l'on doit remettre au prison¬ 
nier assoiffé qui croupit au fond 
de sa cellule, en échange de quoi, 
il vous dira le code secret qui fait 
l'objet de votre mission. 

Là encore, certaines conditions 
devront être remplies et c'est le 
rôle de la ligne 1240 : il faut être 
devant la cellule et transporter le 
bidon qui doit être plein. Dans ces 
conditions, le drapeau Fl passe 
à 1 et le drapeau F2 passe à 0 
(voir leur signification dans notre 
précédent article). 

DEMANDER 

Maintenant que nous savons que 
le prisonnier détient le code 
secret et qu'il est en état de par¬ 
ler, il ne reste plus qu'à lui en faire 
la demande, qu'il s'empressera 
de satisfaire si vous lui êtes venu 
en aide en lui donnant de l'eau. 
Sinon, il ne pourra que marmon¬ 
ner des propos incompréhensi¬ 
bles qui ne vous seront d'aucune 
utilité. 

COUPER 

La chaîne est le seul objet qui 
puisse être coupé, et le test de 
validité de l'ordre se fait en ligne 
1320. 

1340 - Pour pouvoir couper la 
chaîne, il faut posséder une pince 
coupante et être là où se trouve 
la chaîne (cela paraît évident, 
mais il faut quand même effec¬ 
tuer un test). De plus, on s'assure 
que la chaîne n'a pas déjà été 
coupée. 

1342 - Ici, vous devrez confirmer 
que vous voulez bien couper la 
chaîne avec la pince. 

1345 - La trappe devient ouverte. 


ce qui donne un accès supplé¬ 
mentaire vers le nord. On modi¬ 
fie l'état des flags et on dit que 
c'est fini. 

INVENTAIRE 

Le rôle de cette commande est de 
vous donner la liste des objets 
que vous transportez. Nous 
savons déjà qu'à un instant 
donné, on ne peut transporter 
qu'un maximum de 4 objets. 
Pour afficher leur nom, il suffit de 
scruter la table de position des 


objets EO(x). Si l'on obtient 99, 
c'est que l'objet est transporté et 
il suffit donc d'afficher son nom 
et de poursuivre l'exploration de 
la liste. 

Voilà, c'est tout pour aujourd'hui ! 
Dans notre prochain numéro, 
nous verrons les derniers verbes, : 
et Colditz n'aura plus de secret ni 
pour vous. Il ne vous restera plus “ 
alors qu'à écrire votre propre 5 
aventure et, pourquoi pas, à la «/» 
publier dans THEORIC. < 

A bientôt. 


BIBUORIC 


"L'ORIC A NU” 
Fabrice BROCHE 
(SORACOM) 

151 F 

Point n'est besoin de 
présenter l'auteur, 
Fabrice BROCHE : 
tous les passionnés 
d'ORIC le 

connaissent, car il est 
le père d'XL DOS et 
du SEDORIC (avec 
Denis SEBBAG). Qui 
d'autre que lui aurait 
pu réunir autant 
d'informations sur le 
système ORIC ? 
L'ORIC A NU, 
composé directement 
par l'auteur en 
traitement de texte 
(merci, Easytext !) 
décrit de A jusqu'à Z 
les systèmes matériel 
et logiciel de l'ORIC. 
Schéma électronique, 
détail des 
composants, 
fonctionnement du 
clavier, des entrées- 
sorties cassette et 
imprimante, du 
générateur sonore ; 
rien n'a été oublié. 

La partie ''logiciel” du 
livre est, de loin, la 
plus importante. Le 
lecteur y découvrira la 
structure de 
l'interpréteur, le rôle 


des variables système 
et surtout le 
désassemblage 
détaillé, commenté 
ligne par ligne, des 
ROM ORIC-1 et 
ATMOS. Plus de 
problèmes pour tous 
ceux qui recherchent 
des équivalences 
d'adresses ! 


Après avoir vu ce 
livre, il semble difficile 
de se passer de la 
quantité 
d'informations 
contenues dans ses 
420 pages. 

L'ORIC A NU : le 
document qui faisait 
défaut pour bien 
utiliser la machine. 



SORAC0 

//l/fOfl/W4770t/£ 
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R écemment, un article intitulé "SPIEGEL-GRAPHIK" de Martin 
GISSER, traitant un sujet fort attrayant, a paru dans la revue 
allemande "COMPUTER-TECHNIK 1, 1986, p 104-108". 
Une sphère suspendue dans l'espace est illuminée par une source 
ponctuelle L, et un dessin géométrique situé dans le plan en-dessous 
de la sphère se réflète dans celle-ci comme dans un miroir. 

Le programme, assez important, est écrit en SIMOIM's BASIC et tourne 
sur COMMODORE C64. 

Comme les résultats sur écran à haute résolution sont très jolis à voir, 
j'ai pensé qu'il valait la peine d'adapter le programme pour notre ORIC 
et ai saisi l'occasion de le raccourcir et de le modifier sensiblement. 

Le programme est donc devenu comme vous le voulez. 


trois fois plus court, mais il reste 
un grand inconvénient, il est très 
long à exécuter : 7 à 8 heures. 
Laissez-le tourner pendant la nuit 
et vous serez recompensé le len¬ 
demain matin. 

Expliquons d'abord la méthode 
employée par M. GISSER : 

Le centre de la sphère K se trouve 
au point K = (0,0,K3), K3> = 1 
dans un repère XI, X2, X3 (voir 
figure 1), l'observateur au point 
Q = (Q1, Q2, Q3), Q3>0. 
Placez l'écran E de projection 
entre l'observateur et la sphère 
ou même derrière la sphère 


Le vecteur C = (C 1, C2, C3) relie 
l'observateur au centre de l'écran 
qui est caractérisé par les vec¬ 
teurs unitaires A et B et paramé¬ 
tré en S, T. 

Précisez maintenant les coordon¬ 
nées de la source lumineuse L, le 
rapport largeur/hauteur de 
l'image HIRES sur votre écran et 
fournissez la largeur 2 *SM de 
l'écran E dans le repère XI, X2, 
X3. 

Comme l'exécution du pro¬ 
gramme demande plusieurs heu¬ 
res, vous pouvez introduire le pas 
de travail ST. Je vous conseille 


ST = 4 pour un test rapide. 

Le programme construit pour 
chaque pixel (X,7) de l'écran E un 
rayon J*Z qui se propage en ligne 
droite venant de l'observateur en 
traversant l'écran à l'endroit 
(X,Y) jusqu'à ce qu'il rencontre 
un point P du plan X3 = 0. 

Le pixel (X,Y) aura donc la cou¬ 
leur du point P. Dans le cas 
échéant, P prendra la couleur du 
ciel. 

Il se peut que le rayon touche au 
cours de son trajet, la sphère K 
où il subit une réflexion (voir 
figure 2). 

Ces le cas si l'équation 

(M — J « Z, M - J*Z) = 1 ' 

est remplie pour une valeur du 
paramètre J ou, autrement dit, si 
le déterminant 
DI = MZ*MZ- ZZ*(MM - 1), 
et le produit scalaire 

MZ = (M,Z) 

sont positifs (ou nuis) (ligne 280). 
Le programme : 
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— calcule le point aux compo¬ 
santes (PX, PY, PZ) où il y a 
réflexion et le nouveau vecteur 
(ZI, Z2, Z3) (lignes 510-530) ; 

— détermine le point (PI, P2, P3) 
d'intersection du plan (X3 = 0) et 
de rayon (lignes 310, 410) ; 

— détecte si P est à l'ombre ou 
non (ligne 430) ; 

— évalue la couleur du point d'in¬ 
tersection (lignes 610-650) ; 

— et la donne au pixel (X,Y), 
(ligne 440). 

Nous avons placé le mot THEO- 
RIC en grand dans le plan (la 
matrice se trouve à partir de la 


ligne 1000). Si l'observateur se 
trouve à proximité de la sphère, 
vous pouvez discerner l'écriture 
en miroir (figure 3). 

Vous êtes invité à expérimenter 
et à introduire vos valeurs préfé¬ 
rées de : 

K, Q, C, L, TV et 2*SM 
et un autre dessin en ligne 620. 
Nous proposons, par exemple : 

K3 = 1 ; Q: 4, -4,4; C; -4,4, 
-3.5; L; 40,40,10; TV=1.45; 
2*SM = 5.5 et 
620 


PU = ABS(P1 )t.7 + ABS(P2)t ,7:1F 
2*INT(PU/2) = INT (PU) THEN 
FB = 0 ELSE FB = 1 
ou 

620 PU = P1 - INT(P1 ):PV = P2 — 
INT(P2):IF 3*PU*PV>PU*PU + 
PV*PVTHEN FB = 0 ELSE FB=1. 
Les figures 4 et 5 montrent d'au¬ 
tres échantillons. 

Dans un deuxième programme, 
nous avons introduit une 
deuxième sphère de rayon 2 en- 
dessous de la première et sup¬ 
primé le mot THEORIC (voir 
figure 6 et programme : Deux 
sphères). 



Fig ure 6 


Fig ure 7 
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0 REM REFLEXION D'UN RAYON SUR UNE SPHERE DANS L'ESPACE 

1 REM PROJECTION D'UN DESSIN DANS LE PLAN X3=0 SUR L'ECRAN 

2 REM DEMARREZ LE PROGRAMME DANS LA SOIREE ET DORMEZ TRANQUILLEMENT... 

3 REM D'APRES UNE IDEE DE MARTIN GISSER, C'T 1, 1986 


10 REM INITIALISATION 

15 DI MAC 41,4V GOSIJB1008 = REM THEORIC 

20 INFUT" CENTRE DE LA SPHERE C0,Q,K3>==1> ";K3=K1=0=K2=0 REM 1.41 

30 INPUT"COORDONNEES DU SPECTATEUR Q3>0!"; Q1,Q2,Q3=REM 3,0,1 

40 INPUT"COORDONNES DE L'ECRAN RELATIVES AU SPECTATEUR "; Cl,C2,C3«REM-2,0, 

50 INPUT "COORDONNEES DE LA SOURCE LUMINEUSE L1, L2, L3 : REM 35,-35,7 

60 INPUT"RAPPORT LARGEUR'HAUTEUR DE L'ECRAN ": TV REM 1.45 

70 INPUT "LARGEUR DE L'ECRAN "SM = 8M=SM/2 : TM=SM/TV = REM 4.7 

80 INPUT " PAS DE TRAVAIL : 1<=ST<=5"ST REM POUR UN TEST PLUS RAPIDE ! ST=5 

90 HIRES :DOKE#306,#FFFF 

100 REM EVALUATION DES VALEURS CONSTANTES 


11 0 CC=C1TC 1+C2TC2+C3TC3 = CD=SQRCCC-C3TC3> 

120 Al =7:2-'CD = A2=-C 1 /CD= A3=0 = B1 =-C 1TC3/C SQRC CC >TCD > : B2=-C2TC3/C SQRC CC >TCD > 
130 B3=CD/SQRC CC > = H1=-L1 : N2--L2 ! N3=K3-L3 = NH=H 1T N1 +N2TN2+N3TN3 
140 M 1 =-Q 1 :M2=-Q2 = M3=K3-Q3 = MM=M 1 TM 1 +M2TM2+M3TM3 

150 MA=M1TA1+M2TA2+M3TA3=MB=M1TB1+M2TB2+M3TB3=MC=M1TC1+M2TC2+M3TC3 
160 AA=A1TA1+A2TA2+A3TA3 *BB=B1TB1+B2TB2+B3TB3 

170 CA=C1TA1+C2TA2+C3TA3=CB=C1TB1+C2TB2+C3TB3=AB=A1TB1+A2TB2+A3TB3 
ISO MODE=0«OLDMODE=0=REM DETECTION BORD DE LA SPHERE 


200 REM DEUX BOUCLES 
210 FORY=198TO0STEP-ST:T=< 99-Y >TTM/99 
220 MY=MC+MBTT=ZY=CC+BBTTTT+2TCBTT 
230 Z4=C 1+B1 TT « Z5=C2+B2TT = Z6C3+B3TT 


240 FOR X= 0TO 238STEP ST = S=CX-l19>TSM/119 
250 MZ=MY+MRTS=ZZ=ZY+AATSTS+2TCATS+2TABTSTT 
260 Z1=Z4+A1TS = Z2=Z5+A2TS = Z3=Z6+A3TS 
270 DI=MZTMZ~ZZTC MM-1 ') 


280 IF MZ>0 AND DI>0 THEH DI=SQRCDI> ! MODE=l : GOSUB500 : GOTO300 
290 MODE=0= PX=Q1=PY=Q2 = PZ=Q3 

295 IF MODE<>OLDMODE THEN OLDMODE=MODE = CURSET X-l,Y,0=REM BORD DE SPHERE 
300 IF Z3=0 THEH Z3=lE-9 

310 J=-PZ/Z3=IF J>=0 THEN GOSUB 40OELSE CURSET X,Y,1 

320 NEXT^ NEXT = DOKE#306 ,10000 : STOP 

400 REM CALCUL INTERSECTION RAYON-PLAN X3=0 

410 P1 =PX+JTZ1 •• P2=PY+JTZ2 « LX=P 1 -L 1 : LY=P2-L2 = LZ=-L3 

420 LU=L.XTN 1+LYTN2+LZTN3 = LL=LXTLX+LYTLY+LZTLZ 

420 IF LU>0 AND LUTLU>=LLTC HN-1> THEN CURSET X,Y,0 =RETURN= REM OMBRE 
440 GOSUB 600 = CURSET X,Y,FB = RETIJRN 

499 REM SPHERE TOUCHEE-REFLEXION 

500 IF MODE<>OLDMODE THEN OLDMODE=MODE = CURSET X-1,Y,0 = REM BORD 
510 PX=Q1+Z1TC MZ-DI>/ZZ = PY=Q2+Z2TCMZ-DIVZZ = PZ=Q3+Z3TCMZ-DI>/ZZ 
520 ZR=Z1TPX+Z2TPY+Z3TCPZ-K3 > = ZK=-2TZR 

530 Z1=Z1+ZKTPX = Z2*Z2+ZKTPY = Z3=Z3+ZKTCPZ-K3> 

540 RETIJRN 

600 REM DESSIN DANS LE PLAN X3=0 


610 IF PI>1 AND P1< =2 AND P2>=-1.5 AND P2C1.5 THEH 650 = REM THEORIC 

620 RU=ABSCP1>+ABSCP2 > =IF 2TINTCPU/2 >=INTCPU) THEN FB=0 ELSE FB=1 

625 REM OU= IF 2TINTC P1 /2 >-1NTC P1 >=2TINTC P2-'2 >-1NTC P2 > THEN FB=0 ELSE FB=1 

630 RETURN 

650 F=INTC14TC P2+1.5 > > = G=INTC 5TC 2-P1> > =FB=ACF,G> = RETURN = REM THEORIC 

999 REM MATRICE THEORIC 

1000 W- 0.4 >=1 = AC 1,4 >=1 = F=2 = GOSUB 1100 = AC3,4 )=1 = AC 4,4 >=1 

1010 F=6 = GOSUB11 00 = AC 7,2 >=1= F=10 = GOSUB1100 «AC 8,2 >=1= AC 9,2>=1 

1020 F=12 = GOSUB1100 = G=4 = GOSUB1200 = G=2 = GOSUB1200 = G=0 = GOSUB1200 

1020 A< 18, 1 ^=1 AC 18,2 >=1 = AC 18,3>=1 =AC 19,0>=1 =AC 19, 4 >=1 = AC 20,0 >=1 = AC 20,4 >=1 

1035 AC 21.0>=1 =AC21,4>=1 =AC 22, 1 >=1 = AC 22,2 >=1 = AC 22,3 >=1 

1040 F=24 = GOSUB1100 = AC 25,2 >=1=AC 25,4 >=1= AC 26,2 >=1=AC 26,4)=1 AC 27,1>=1 

1045 AC 27,2 >= 1 = AC 27,4 >=1 = AC 28,3 >=1 = AC 28,0 >=1 

1050 F=32 = GOSUB 1100 = AC 31,4 >= 1 = AC 33,4 >= 1 = AC 31,0 >= 1 = AC 33,0 :>= 1 

1060 F=36 = GOSUB 1100 = AC 36,4 >=0 = AC 36,0 >=0 = AC 37,4 >=1= AC 33,4 >=1=AC 39,4 >=1 

108 5 AC 40.3 ■>=! ■ AC 40.1 >=1 = AC 39,0 >=1 = AC 38,0 >=1 = AC 37.0 >=1 
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1070 PETURH 

Il00 FOR G=0TO4 = fl< F,G >=1=NEXT«RETURN 
1700 F0RF=12 TO 16 = FK F,G>=1:NEXT RETURN 


PROGRAMME DEUX SPHERES 

O REM DEUX SPHERES 
20 K3=3=K2=0 K1=0 
30 Ql=7 : Q2=-7 : 03=3.2 
35 EF=< SQRC 9S ?+1 VSQR< 2 > 
40 C1=-EF : C2=EF = C3“-1.4 
50 Ll=40 : L2=40 ; L3=40 
60 TV=1.45 
70 SM=3.5 : TM=SM- / TV 



400 REM CALCUL INTERSECTION RAYON-PLAN X3=0 
405 GOSUB1000 : REM 2. SPHERE 

410 P1=PX+J*Z1 :P2=PY+J*Z2 = P3=PZ+J*Z3 *LX=P1—L1 : LY=P2-L2 »LZ=P3-L3 
420 LU=LX*N1+LYTN2+LZTN3:LL=LX*LX+LY*LY+LZ*LZ 

430 IF LU30 AND UJ*UJ>=LL*<NN-1 ) THEN CURSET X,Y,0 RETURN = REM OMBRE 
440 GOSUB 600 CURSET X - Y.. FB : RETURN 

499 REM SPHERE TOUCHEE-REFLEXION 

500 IF MODE<>OLDMODE THEN OLDMODE=MODE CURSET X-1..Y,0 

5 ï 0 PX=G 1+Z1 *< MZ-DI VZZ : PY=Q2+Z2*< MZ-DI VZZ = PZ=Q3+Z3*< MZ-DI VZZ 

520 ZR=Z1*PX+Z2*PY+Z3*<PZ-K3)»ZK=-2*ZR 

530 Z1=Z1+ZK»PX=Z2=Z2+ZK*PY = Z3=Z3+ZK*(PZ-K3 > 

=■.40 RETURN 

600 REM IMAGE DANS LE PLAN X3=0 

620 IF 2*INT<Pl/2)-INKPl>=2*INT(P2/2)-INKP2> THEN FB=0 EL SE FB=1 
630 RETURN 

1 000 ZZ=Z1 XZ 1+Z2*Z2+Z3*Z3 : ZP=PX*Z1+PY*Z2+PZ*Z3 
1010 PP=PX*PX+PY*PY +PZXPZ ■■ DY=< ZPtZP-ZZXX PP-4 > ) 

1020 IF DY<0 THEN RETURN=REM 2. SPHERE PAS TOUCHEE 
1030 J1=-< ZP+SQR< DY ) VZZ : IF PZ+J1*Z3>0 THEN J=J1 
1040 RETURN 
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BASE DE DONNEES FORTH 


L es écrans FORTH sont loin d'être réservés aux programmes 
à compiler. Voici, par exemple, comment utiliser la vaste 
mémoire virtuelle en fichiers avec une vraie gestion de base 
de données. 


BASILE est un vocabulaire 
FORTH de bases de données 
gérant des fichiers ASCII à accès 
direct. Malgré sa taille inférieure 
à 2 ko, le noyau proposé ici n'a 
rien à envier à notre vieil ORIC- 
BASE et son Basic un peu essouf¬ 
flé. 

La puissance de BASILE viendra 
de ses développements : il s'agit 
avant tout d'un vocabulaire spé¬ 
cifique avec lequel vous écrirez 
vos propres applications adap¬ 
tées à vos besoins, tant il est vrai 
que toute base de données se 
programme. 

Bien sûr, BASILE est d'abord des¬ 
tiné aux versions disque (FORTH- 
JASMIN ou T-FORTH), mais les 
possesseurs de versions cassette 
peuvent très bien l'expérimenter 
tel quel. 

BASILE est en Fig-Forth standard 
et donc portable sur tout 
système : qui a dit qu'il fallait un 
ORIC pour lire THEORIC ? 

Je profite du fait que BASILE est 
auto-documenté et suivi d'un 
exemple d'utilisation pour répon¬ 
dre aux lecteurs qui nous deman¬ 
dent des cours d'initition au 
Forth. 

Forth est un langage dont les 
joies sont à la mesure des efforts 
d'apprentissage. Rien ne rem¬ 
place les longs essais au clavier 


avec un bon manuel. Ecrits par 
des passionnés, les manuels du 
langage sont souvent excellents 
s'ils sont parfois ardus. 

Mais, voyez les autres revues : 
après quelques cours où l'on 
explique en deux pages la fonc¬ 
tion DUP, on achève de découra¬ 
ger les lecteurs et la rubrique s'ar¬ 
rête vite là... 

A notre avis, seule la publication 
de programmes est à même d'en¬ 
courager les efforts et d'élargir le 
cercle des fanatiques. 

Si vous débutez en Forth, laissez 
pour l'instant BASILE de côté. 
Vous y reviendrez avec plaisir 
quand vous saurez apprécier les 
mots de définition et multi- 
définition, le traitement des chaî¬ 
nes, la gestion des tampons, 
l'exécution vectorisée ou les tris 
Shell. C'est la compréhension 
intime du programme qui vous 
fera le dépasser. 

Signalons enfin à tous les pas¬ 
sionnés de FORTH, LOGO, LISP, 
MUMPS et autres C (mais oui : 
pourquoi pas sur ORIC ?) l'excel¬ 
lente association JEDI* et la 
devise de son bulletin : "Que le 
Forth soit avec vous !". 

'Association JEDI : 8 rue Poirier de Narçay, 
75014 PARIS. 


3CRN# 71 

0> < BASILE 1/9 : Base de données Fig-Forth MZ.03.86 > 

' 1) FORTH DEFINITIONS DECIMAL VOCABULARY BASILE IMMEDIATE 
' 2; BASILE DEFINITIONS 
3) 0 VARIABLE TRAVAIL ( fichier de travail ) 

( 4) 0 VARIABLE POINTEUR ( pointeur de la fiche courante ) 

I 5) 0 VARIABLE «CHAMP ( pointeur de champ ) 

’ 6) : LG-FICHE < — 1g ) TRAVAIL 02+0; 

7» : N8-CHAMPS (-n ) TRAVAIL 0 6 + 0: 

< 8) : FIN ( — adr I TRAVAIL 0 4 + : 

t 3 ) : NB-FICHES < — nb > FIN 0 1 - : 

<10> : ALLONGE 1 FIN +' : : DIMINUE -1 FIN +' : 

(11) : OEJA ( n — ) 1+ FIN \ : 

(12) ( permet de reprendre un fichier de n fiches déjà défini ) 

(13) : POINTE ( fiche - ) POINTEUR ' ; 





'4 . (CHAMP' r. champ i donne le Nieme champ du fichier ) 

15 NB-CHAMPS SUAP - 2 I TRAVAIL 981+0; --> 
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à BASILE 2/9 : définitions de champs et fichiers ) 

( : : (CHAMPS < h —champl..champN N lg-fiche ) 

• c) ' multi défimsseur de n champs ; longueurs et noms ) 

(3; 0 20UP DO 32 UORO HERE NUMBER DROP 2DUP VARIABLE , ♦ 

4; LATEST FFA ROT ROT LOOP ; 

•3' : (FICHIER ( champl .. champN N lg-fiche écran-début ) 
i Si ( définition d'un fichier de N champs, fiches de lg-fiche ) 

( 7i (et débutant au numéro d'écran-debut I 

( 8) CBUILDS . . 1 . DUP . 0 DO . LOOP DOES> TRAVAIL 1 ; 

' 9) ; (SOUS-FICHIER ( écran ) ( définition d'un fichier à cet ) 

(10/ ' écran de même structure que le fichier de travail ) 

'11) >R NB-CHAMPS 1+ 1 DC I (CHAMP) LOOP NB-CHAMPS 
(12. LG-FICHE R> (FICHIER ; 

131 : FICHE ( - adr ) ( fournit adresse de fiche courante FC ) 

(14. POINTEUR 0 B/BUF LG-FICHE / /'MOD TRAVAIL 0 0 B/SCR • + 

(15) BLOCK SUAP LG-FICHE I F ; —> 
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(0) i BASILE 3/9 ; impressions formatées ) 

» il : CHAMP ( champ - adr ) i fournit l'adresse champ FC ) 

' 2. DUP 2+ 0 FICHE + SUAP 0 ; 

2 : .IDCHAMP ( champ — ) ( affiche le titre du champ ) 

4) NFA DUP C0 31 AND 0 DO 1+ DUP C0 127 AND EMIT LOOP DROP ; 

' 5> 4b VARIABLE CAR ( caractère de remplissage ) 

( 6) 25 VARIABLE TAB ( variable tabulations ) 

CARS ( n — i -DUP IF 0 DO CAR 0 EMIT LOOP THEN i 
' 3) ( en.oie n caractères CAR ) 

• 9- ; RT DPE ( adr count tab-) i TYPE formaté a droite ) 

10. SUAP OVER MIN SUAP OVER - CARS TYPE ; 

11) : LT.PE ( adr count tab - ) ( TYPE formaté a gauche ) 

■12. SUAP OVER MIN SUAP OVER - >R TYPE R> CARS ; 

13) i .FICHE i - ) ( Affiche la fiche courante ) 

14 NB-CHAMPS H 1 DO I CR (CHAMP) DUP .IDCHAMP 

15) CHAMP -TRAILING TAB 0 OUT 0 - RTYPE LOOP CR ; —> 
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< 0) ( BASILE 4/9 : entrées de chaînes i 

r 1) ; C) ( compilation * ) R PAD OVER C0 1+ DUP R> - >R CMOVE ; 

( 2) : • ( — ) 34 STATE 0 IF COMPILE C) UORC HERE C0 1+ ALLOT 

( 3) ELSE UORD HERE PAD OVER C0 1+ CMOVE THEN : IMMEDIATE 

(4) ( • texte’ place une chaîne explicite dans PAD ) 

( 5) : MET < champ - ) ( met chaîne dans champ de FP ) 

( 6) CHAMP 2DUP BLANKS PAD COUNT ROT MIN >R SUAP R> CMOVE UPDATE ; 

(7) : '■ I - i ( attente au clavier d'une chaîne pour PAD ) 

( B) BLK 0 >R IN 0 >R 0 BLK ’ SPACE 63 EMIT SPACE QUERY 

( 9) (COMPILE! ’ R/ IN 1 R> BLK 1 ; 

.10) i DEMANDE i - ) ( entrée au clavier champ par champ de FP ) 

(11) NB-CHAMPS 1+ 1 DO I CR (CHAMP) DUP .IDCHAMP »* TIB 0 C0 0= 

(12) IF LEAVE ELSE MET THEN LOOP ; 

(13) : ENTRE ( - ) BEGIN FIN 0 POINTE DEMANDE TIB 0 C0 

(14) UH!LE ALLONGE CR REPEAT ; —> 

(15) l acquisition des fiches au clavier jusqu’à champ vide ) 


SCRN# 75 

( 0) ! BASILE 5/9 : manipulations de fiches ) 

( 1) : EFFACE ( — ) FICHE LG-FICHE BLANKS UPDATE ; 

( 2) ( efface la fiche pointée ) 

( 3) : PREND l — ) FICHE PAD LG-FICHE CMOVE : 

( 4) ( prend la fiche pointée dans PAD ) 

( 5) : PLACE < > PAD FICHE LG-FICHE CMOVE UPDATE ; 

( 6) ( place fiche du PAD au niveau pointé > 

( 7) i COPIE ( ni n2 — ) 

( 8) l copie fiche ni en n2 ) 

. 9) >R POINTE PREND R> POINTE PLACE ; 

( 10 ) --> 

( 11 ) 

(12) 

'13) 

(14) 

(15) 
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( 0. ( BASILE 6/9 : manipulations de fiches i 

( 1) ; INSERRE ( - ) 

( 2) ( fait de la place pour une fiche au niveau pointé ) 

< 3) POINTEUR 0 DUP FIN 0 DO I 1- I COPIE -1 +LOOP 

< 4) ALLONGE POINTE EFFACE i 

( 5) : DETRUIT ( - ) 

( 6) ( détruit la fiche pointée ) 

( 7) POINTEUR 0 FIN 0 OVER 00 I 1+ 1 COPIE LOOP DIMINUE POINTE i 
( 8) : AJOUTE < - ) 

( 9) ( ajoute une fiche en fin de fichier de travail ) 

(10) FIN 0 POINTE PLACE ALLONGE î 

Ml) ( PERMUTE ( ni n2 — ) 

(12) ( permute les fiches ni et n2 ) 

(13) DUP POINTE PREND OVER POINTE FICHE 

(14) SUAP POINTE FICHE LG-FICHE CMOVE UPDATE POINTE PLACE : 

(15) —> 
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( 0) ( BASILE 7/9 i parcours du fichier ) 

( 1) ( compteur de fiches lors de sélections ) 

( 2) 0 VARIABLE COMPTEUR ( RAZ 0 COMPTEUR ■ : 

( 3) ! COMPTE 1 COMPTEUR +! I 

( 4) : COMBIEN CR CR COMPTEUR 0 . .* fiches sélectionnées * j 
( S) < procédures vectorisées sur toutes les fiches ) 


( 6) 0 VARIABLE VECTEUR ( vecteur d'action sur une fiche ) 

( 7) : VAS-Y ( pfa - ) 

( B) ( applique a toutes les fiches une procédure ) 

( 9) VECTEUR ' RAZ FIN 0 1 DO I POINTE VECTEUR 0 CFA EXECUTE LOOP 

(10) COMBIEN i 

(11) : .FICHIER ’ .FICHE VAS-Y ; 

(12) ( affiche tout le fichier de travail ) 

(13) —> 

(14) 

(15) 
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( 0) < BASILE B/9 i cdmparaisons de chaînes ) 

( 1) : TROUVE ( champ-flag ) 

( 2) ( teste présence chaîne du PAD dans le champ ) 

( 3) CHAMP PAD COUNT EDITOR MATCH DROP ; 

( 4) Î COMPARE ( adrl adr2 lg - flag ) 

( 5) ( compare lg octets de adrl et adr2 : flag -1 0 ou 1 ) 

( 6) ( selon que la chaîne adrl est < - ou > a celle d'adr2 ) 

( 7) 1 ROT ROT OVER + 1+ SUAP DO DROP DUP C0 I C0 - -DUP 

(8) IF 1 SUAP +- LEAVE ELSE 1+ 0 THEN LOOP SUAP DROP ; 

(9) (ce mot aurait intérêt à être ré-écrit avec assembler ) 

( 10 ) --> 

( 11 ) 

( 12 ) 

(13) 

(14) 

(15) 
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( 0) < BASILE 9/9 i champs numériques et tris ) 

( 1) : VALEUR < champ - n ) 

( 2) CHAMP DUP PAD C' PAO 1+ SUAP CMOVE PAO NUMBER DROP ; 

< 3) : #MET ( n champ - ) 

( 4) ( met une valeur numérique dans un champ ) 

< 5) #CHAMP ! S->D SUAP OVER DABS <# #S SIGN #> #CHAMP 0 

( 6) CHAMP 20UP BLANKS ROT MIN CMOVE UPDATE ; 

( 7) ( opérations de tri ) 

( 8) 1 VARIABLE SENS : INVERSE -1 SENS ' ; : NORMAL 1 SENS ! I 
( 9) ( déterminent le sens des tris ultérieurs ) 

(10) : TRIE ( champ - ) 

(11) ( trie fichier de travail selon champ donné et sens fixé ) 

(12) «CHAMP i NB-FICHES BEGIN 2 / -DUP (JHILE NB-FICHES lt OVER 1+ DO 

(13) I OVER - BEGIN 2DUP + 2DUP POINTE #CHAMP 0 CHAMP PAD SUAP CMOVE 

(14) POINTE «CHAMP 0 CHAMP PAD SUAP COMPARE SENS 0 = IF OVER PERMUTE 

(15) OVER - DUP 1 < ELSE DROP 1 THEN UNTIL DROP LOOP REPEAT ; ;S 
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( 0) ( Fichier BIBLIOR1C 15 fiches mise a jour : 29/3/B6 ) 


( 1) 

Forth pour Oric 

ASN 

SORICOM 

13 

( 2) 

Conduite de l'Oric-1 

Astier 

EYROLLES 

14 

( 3) 

Guide de l'Oric 

Bayvejiel 

EDIMICRO 

11 

( 4) 

Oric-1 pour tous 

Boisgontier 

PSI 

13 

( 5) 

Manuel de reference 

Cheniere 

ISOSOFT 

IB 

( 6) 

Clefs pour l'Oric 

Fl esse 1 les 

PSI 

15 

( 7) 

Extensions pour Oric 

Garrec Vignet 

EYROLLES 

15 

( B) 

Pilotez votre Oric 

Gueu 1 le 

ETSF 

14 

( 9) 

Assembleur de l'Oric 

Henrot 

PSI 

15 

(10) 

Interfaces pour Oric-Atmos 

Levrel 

SORICOM 

16 

(11) 

Tours de Forth 

Petreman Rousseau 

EYROLLES 

17 

(12) 

Tout savoir sur Oric 

Politis Vanryb 

EYROLLES 

14 

(13) 

Forth 

Salman et Coll. 

EYROLLES 

17 

(14) 

60 solutions pour Oric 

Schulz 

ETSF 

15 

(15) 

Programmer le Forth 

Van Loo 

MARABOUT 

16 

SCRN# 80 




( 0) 

( BASILE i exemple de création de fichier ) 



( 1) 

BASILE DEFINITIONS DECIMAL 




( 2) 

4 (CHAMPS 30 TITRE 20 AUTEUR 

10 EDITEUR 4 NOTE 



( 3) 

100 (FICHIER BIBLIORIC 




( 4) 

BIBLIORIC ENTRE ;S 





( 5 ) 

( 6) Cet écran définit un fichier BIBLIORIC débutant en # 100 
( 7) composé de fiches de 4 champs TITRE AUTEUR EDITEUR et NOTE 
< 8) de 30 20 10 et 4 caractères. 

( 9) La longueur de fiche è 64 octets a été choisie comme diviseur 

(10) entier des buffers pour optimiser l’occupation de la mémoire. 

(11) Reportez-vous A l’écran # 100 pour entrer les 15 premières 

(12) fiches de cet exemple. 

(13) 

(14) 

(15) 
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( 0) ( BASILE ( exemple d'utilisation ) 

( 1) BASILE DEFINITIONS BIBLIORIC 
(2) 110 (SOUS-FICHIER UOUAHH 
( 3) NORMAL TITRE TRIE 
( 4) ( SESSION 

( 5) * SORICOM’ EDITEUR TROUVE IF * SORACOM* EDITEUR MET THEN 
( 6) * Forth’ TITRE TROUVE NOTE VALEUR 15 > OR 
(7) IF COMPTE CR TITRE CHAMP TYPE 
( B) PRENO UOUAHH AJOUTE BIBLIORIC THEN ; 

< 9) ' SESSION VAS-Y FORGET SESSION (S 
( 10 ) 

(11) Cet écran trie BIBLIORIC selon les titres des ouvrages puis 

(12) sélectionne les fiches dont le titre contient 'Forth' ou dont 

(13) la note est supérieure a 15. Ces fiches sont comptées. les 

(14) titres affichés et les fiches copiées dans un fichier UOUAHH 
(13) en «110. Au passage SORICOM est remplacé par SORACOM... 
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MINI INTERPRETEUR 

Pierre CHICOURRAT 


M ■ ans un numéro précédent, THEORIC vous avait proposé un 
fl exemple de routine "Mini-Interpréteur" permettant d'utiliser 
le "I" pour ajouter des mots au Basic de l'ORIC. 

Voici, aujourd'hui, un exemple d'utilisation de cette routine. 


Le plus long sera pour vous de 
saisir le programme Basic, se 
chargeant d'implanter la routine 
LM et de la reloger à l'adresse 
que vous voulez (suivant la place 
libre en mémoire). Une fois 
implantée, vous pourrez, grâce à 
cette routine, utiliser quelques 
mots nouveaux dans vos pro¬ 
grammes Basic, tous accessibles 
par "I" (c'est-à-dire que leur nom 
devra être précédé du !). Passons 
en revue ces nouvelles comman¬ 
des. 

Tout d'abord, cette routine amé¬ 
liorera quelques mots du Basic 
normal : GOTO, GOSUB, REPEAT 
et les mots associés : RETURN, 
POP, UNTIL, PULL. L'instruction 
IGOTO fonctionnera exactement 
comme celle du Basic, mis à part 
que vous pourrez également faire 
un saut sur une étiquette alpha¬ 
numérique et non plus nécessai¬ 
rement sur un numéro de ligne. 
Un exemple étant plus parlant : 

10 IGOTO "exemple” (GOTO a 
l'étiquette "exemple) 

20 ... 

99 REM "exemple" (étiquette 
exemple sur laquelle se fait le 
GOTO) 

100 PRINT "OK: ÇA.MARCHE” 

Bien sûr, le paramètre du GOTO 
peut aussi être une variable 
alphanumérique. Par exemple : 

30 A$ = "SPRG2" 

40 IGOTO A$ (GOTO sur l'éti¬ 
quette contenu dans A) 

50 ... 

200 REM "SPRG2" (étiquette 
pour le GOTO - dans un REM 
entre guillemets) 


210 PRINT "Le GOTO a fonc¬ 
tionné" 

On peut, dans un programme, 
utiliser autant d'étiquettes que 
l'on désire (le nombre n'est abso¬ 
lument pas limité par la place 
mémoire). Par ce procédé, vous 
vous affranchissez des numéros 
de ligne ; le programme devient 
beaucoup plus parlant et, de plus, 
la rénumérotation des lignes ne 
nécessite plus qu'une routine 
extrêmement simplifiée (puisque 
les GOTO n'ont plus à être adap¬ 
tés). 

Le GOSUB subit également la 
même amélioration, mais ce n'est 
pas la seule. Vous pourrez désor¬ 
mais utiliser autant de GOSUB 
emboîtés que vous le désirez. 
Prenons, par exemple, le petit 
programme suivant : 

10 1 = 1 + 1 :GOSUB 10 

Faites RUN. Peu de temps après, 
vous obtenez un message d'er¬ 
reur "OUT OF MEMORY” ; il y a 
trop de GOSUB emboîtés. Si 
vous lisez la valeur atteinte par la 
variable I, vous trouverez quelque 
chose comme 25. Cette limite du 
Basic vous empêche de faire des 
programmes en tant soit peu 
récursifs. Par contre, avec le nou¬ 
veau GOSUB, vous pourrez utili¬ 
ser beaucoup plus de sous- 
niveaux de sous-programmes. 
Ainsi, le programme : 

10 1 = 1 + 1:PRINT LIGOSUB 10 

ne se plantera pas pour I = 500, 
ni même après, suivant la place 
que vous aurez réservée à la pile 
des retours ! En effet, à chaque 


fois que l'interpréteur effectue un 
GOSUB (d'ailleurs, la même 
chose se passe pour un REPEAT), 
il stocke dans la pile du micropro¬ 
cesseur (située entre #100 et 
# 1 FF) l'adresse du caractère qui 
suit le GOSUB, le numéro de la 
ligne où se fait le GOSUB et enfin 
un code permettant de savoir à 
quoi correspond tout ce qui a été 
sauvegardé dans la pile (le code 
de l'instruction GOSUB ou 
REPEAT). Ainsi donc, chaque 
GOSUB occupe 5 octets plus 
deux octets d'adresse de retour 
pour le microprocesseur, soit 7 
octets occupés. Comme la pile 
est de longueur très limitée (elle 
n'est pas entièrement consacrée 
à servir de pile de retour), ceci 
explique que l'on ne puisse pas 
emboîter autant de GOSUB que 
l'on veut. L'astuce consiste donc 
à utiliser une autre pile des 
retours, que l'on loge ailleurs en 
mémoire et dont la longueur sera 
plus importante (puisque l'on ne 
sera plus limité). De plus, au lieu 
de sauvegarder 7 valeurs, on 
n'en sauvegarde plus que 3, 
l'adresse du caractère qui suit le 
GOSUB et le code de l'instruc¬ 
tion, le numéro de ligne est 
retrouvé au moment où l'on fait 
le RETURN et l'adresse de retour 
pour le microprocesseur n'est 
plus utile puisque la pile normale 
n'est pas affectée par le GOSUB. 
Ceci oblige également à réécrire 
le RETURN et le POP afin qu'ils 
soient capables d'utiliser la nou¬ 
velle pile des retours. 

Le REPEAT subit exactement la 
même modification, ainsi que les 
deux mots associés à cette ins¬ 
truction : PULL et UNTIL. Ces ins¬ 
tructions utiliseront la même pile 
que le nouveau GOSUB et donc 
le nombre de REPEAT que vous 
pourrez emboîter dépendra de la 
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longueur choisie pour cette pile. 
Le programme d'implantation du 
L.M. vous permettra de choisir 
l'emplacement de cette pile et, 
par voie de conséquence, de fixer 
sa longueur (à titre indicatif, une 
pile de 99 octets permettra envi¬ 
ron 33 niveaux de sous-program¬ 
mes, si vous en voulez plus, rien 
ne vous empêche de réserver une 
pile plus longue ; on peut sans 
problème utiliser 1000 niveaux 
de sous-programmes !). 

Passons maintenant aux nouvel¬ 
les commandes créées par cette 
routine. Elles sont toutes utilisa¬ 
bles dans vos programmes Basic, 
à condition de faire précéder leur 
nom, comme indiqué par 

IWHILE et IWEND : Structure de 
contrôle destinée à compléter le 
REPEAT UNTIL. Sa syntaxe : 

IWHILE condition... IWEND 

Cette instruction exécute ce qui 
est entre le WHILE et WEND tant 
que la condition est vraie. Utilise 
la même pile que le nouveau 
GOSUB ; on peut donc emboîter 
autant de WHILE/WEND que l'on 
désire. 

Exemple : 

10 1=0 

20 IWHILE I < 10:1 = I + 1 
30 PRINT I 
40 IWEND 

Ce programme tournera jusqu'à 
ce que I atteigne la valeur 10 ; à 
ce moment là, le WHILE fera sor¬ 
tir de la boucle. 

IHOME : ramène le curseur en 


haut de l'écran mais sans effacer 
ce qui est affiché. 

IRAND : Commande "RANDO- 
MIZE". Permet de rendre le géné¬ 
rateur de nombres aléatoires vrai¬ 
ment aléatoire en initialisant la 
''semence'' utilisée par celui-ci. 
Ainsi, quand on commence un 
jeu de hasard, les nombres tirés 
n'arriveront pas toujours dans le 
même ordre. 

IFIND [chaîne de caractères] : 

Outil d'aide à la programmation. 
Permet de retrouver dans un pro¬ 
gramme Basic les occurences de 
la chaîne mise entre crochets. 
Attention : cette chaîne ne peut 
pas être une variable alphanumé¬ 
rique ni une expression de chaî¬ 
nes (somme). Permet de retrou¬ 
ver toutes les occurences d'une 
commande du Basic dans un pro¬ 
gramme. 

Exemple : 

IFIND [GOTO] 

IFIND [REMI 
IFIND [Tapez] 

ISWAP Variablel, Variable2 : 

Echange le contenu de la 
Variablel et de la Variable2 de 
manière instantanée. Bien sûr, les 
deux variables doivent être du 
même type. 

Exemple : 

A = 20:B = 30:!SWAP A,B:PRINT 
A;B Affiche ”30 20” 

A$ = ”Monsieur”:B$ = "Cher”:! 
SWAP A$,B$:PRINT A$,B$ 

A(0) = 34:A/2) = 67:ISWAP A(0), 
A(2):PRINT A(0);A(2) 

Cette instruction opère sur tout 


type de variable (y compris les 
variables entières). 

INSTRUCTIONS 
DE MANIPULATION 
DE L'AFFICHAGE 

ISAVE A,X,Y;B : Sauve la partie 
de l'écran commençant à 
l'adresse A, s'étendant sur X 
caractères en abscisse et Y 
caractères en ordonnées. Met 
cette zone sauvegardée en 
mémoire à partir de l'adresse B. 
Comme il n'y a pas de contrôle, 
vous pouvez vous servir de cette 
instruction pour sauvegarder une 
zone mémoire. Cette commande 
permet de faire de petits dessins 
animés (on sauve les images et 
on les réaffiche à l'endroit que 
l'on veut). 

Exemple : 

ISAVE 48000,10,10,36864 : 
sauve le petit carré de 10 x 10 en 
haut à gauche de l'écran TEXT. 

ILOAD A;B : Recharge à partir de 
l'adresse B la zone écran qui a été 
sauvegardée à partir de l'adresse 
A (les dimensions de la zone sau¬ 
vegardée par ISAVE sont aussi 
sauvées). Cette instruction per¬ 
met de faire de petits dessins ani¬ 
més (on peut sauvegarder et 
recharger une partie de l'écran 
TEXT ou HIRES). 

Cette routine ne constitue qu'un 
petit exemple d'application. En 
fait, la commande ”!” s'avère 
très souple pour adapter le Basic 
de l'ORIC à ses besoins et en faire 
ainsi un Basic personnalisé et 
vraiment efficace. 


1 REh= 

2 REH= EXEHPLE D’EXTENSION DU BASIC 

3 REI“I= 

4 REt1 = 

5 REH = CCD P,erre CHICOURRAT - 

6 REH= 

7 REH================================== 

10 TEXT:PAPER0 : INK2 :CLS :PRINTCHR*C4D=PRI 
NTSPC C5 DCHR*C 27 D 11 A"CHR*( 27 D"J"î 

20 PRINT "EXTENS I ONS AU BAS I C"CHR* (4 D 
30 PRINT :PRINT:PRINT:PRINTSPCC16DCHR*C27 
D"E"CHR* C 96)" P.erre CHICOURRAT" 

40 PRINTSPRINT:PRINT"A QUELLE ADRESSE UC 
ULE2-U0US IHPLANTER" 


* 

* 

* 

* 

* 

* 

* 


50 PRINT'-LE PROGRAHHE ?" :PR I NT 11 IL FAUT Q 
UE CETTE ZONE SOIT PROTEGEE 1 ' 

60 INPUTAD :REST0RE :FORJ=0TO2:REA0U:I=A0r 
U:REPEAT:READU*:U-UAI_C " 8 " tu* D 
70 POKEI > U : I = I f 1 :UNT ILU*» 1 '*" :nEXTJ : PRINT 
=PRINT 

8 0 REPEAT :REA0U*,U*:u=UALC"«"fU*D^AD:U=U 
ALC’'#"i-U*DfA0 : IFU* <> ThENOOKEU , U 

90 UNTILU*="*” 

100 REPEAT :READU*,U*,U*:IFPEEKC8FFFE)=40 
THENU*=U* 

1 10 U-UALC "8"tU* D^AD :U«UALC "8 "i-U* D : IFU* < 
>"*"THENDOKEU,U 

120 UNT ILU* = ’ - *" :QOKE0, ADt8 32F :P0KEA0*82C 

2,PEEKC0D :P0KEADrtt2C4,PEEKC 1 D 

130 DOKE0,ADft*S86:pOKEAD->-6 1 PEEKC0D =POKEA 
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Df8,PEEKC13 

A 

500 PRINT" "CHR* C 273"P"CHR* C 273"TD0KE42 

140 DOKE01AP-nt31C :POKEPDfS296,PEEKC0 3:P0 

▲ 

F5,"HE^*CPD3:FRINT 

KEPD+42S8,PEEKC13 


510 PRINT"PPRES, UOUS P0URRE2 UTILISER L 

150 T=PDf#546 :REPEPT :REPOU*:U“UPLC"#"*U* 


ES" :PRINT"NOUUELLES FONCTIONS NORriPLEHEN 

3 +PD:OOK£0,ü:POKET.PEEKC0 3 


T. " 

160 P0KETt32,PEEKC13 :T-Tfl :UNTILU*«"*" 

1 

520 PRINT :ENO 

170 FORI=PDt#3DETOPO»842F:POKE!.0:NEXT 

▲ 

900 REH—— — ————————— 

180 PRINT"OUElLE LONGUEUR UOULEZ-UOUS RE 

'P 

910 REn= DPTPS DE LP ROUTINE 

SERUER" 


920 RED———————- 

130 PR INT "POUR LP "CHR* C 34 3 "P 1 LE DES RET 

/K 

1000 DPTP0 

OURS"CHR* C 34 ) 

i 

1010 DPTP20,60,50,P2,00,P9,FF,P0,FF,85,0 

200 PR INT"POUR LES GOSUB,REPEPT, .. etc 

/K 

0,84,01,PS,E9,48,P5,EP,«8.P0 


'P 

1020 DPTP00,B1 ,-00, DI ,E9,D0, 1F , E6,00, D0,0 

210 INPUT”C99 OCTETS - 33 NIUEPUX DE SOU 

A. 

2,E6,01,E5,E9,D0,02,E6,EP,Bi 

S-PROG -;l 


1030 DPTP00,D0,EC,BD,46,65,85,00,BD,66,6 

220 I=PDt#500:PRINT"CETTE PILE EST DONC 

V 

5,85,01,68,66,6C,00,00,E8.E6 

IHPLPNTEE DE :PRINTHEX*C 13" P "HEX*CI* 

A 

1040 DPTP00,00,02,E6,01,81,00,00,F6,Ec,0 

L 3 

^P 

0,00,02,E6,01,53,P8,68,84,EP 

230 DOKEPOf 83161 I*L :D0KEP0 t8318, I :DOKEPO 


1050 QPTP85,£9,48,98,48,P0,00,31,20,00,B 

■•■03 1 Pi I f L :PRINT:PRINT 


C,P2,10,4C,85,C4,P0,00,P9,20 

240 OOKE«2F5,PD:PRINT"OK: UOICI LES NOUU 


1060 DPTPDl,E3,F0,01,60,E6,E9,D0,F3,Ec,E 

ELLES INSTRUCTIONS" 

A 

P,00,EF,P5,9P,P4,9B,85,CE,84 

250 PRINT"UTILISPBLES :" 

i 

1070 DPTPCF,P0,01,B1,CE,F0,20,P0,04,B1,C 

260 PR INT"S GOTO N, «GOTO "ChR*C343"Et.que 

A 

E,F0,07,CS,9D,F0,19,C8,D0,F5 

11 e"CHR*(34 3 

'P 

1080 DPTPP0,00,81,CE,48,C8,31,CE,85,CF,6 

270 PRINT"ïGOSUB N, “GOSUB "CHR*C343"Et, 


8,85,CE,00,E4,P5,CF,D0,E0,4C 

que 11 e"CHR*( 34 3 

A 

ie90 DPTPF1,C9,C8,B1,CE,F0,E5,C9,22,F2,0 

280 PRINT"!RE t URN, 5P0P" 


5,C8,D0,F5,F0,DC,C8,P2,00,B1 

290 PRINT"»REPEPT, 5UNT1L, SPULL“ :PRINT" 

▲ 

1100 DPTPCE.F0,11,C9,22,F0,00,C9,3P,F0,0 

JUHILE Cond , t ion _ 2UEND" 


9,DD,B5,DP,D0,C8,C8,E8,00,EB 

300 PRINT"SCLEPR :UIDE TOTPlEHENT LP PIL 


1110 DPTPE4,02,00,03,60,20,8B,CE,PS,28, D 

E DES" :PRINTSPCC93"RETOURS" 

A 

0,20,20,7P,CE,20,P0,E7,P5,9P 

310 PRINT"JRPND":PRI NT"SHOHE":PRINT"2FIN 

l 

1120 0PTPP6,9B,22,E8,C6,B0,03,4C,F1,C9,3 

D [Chaine]" :PRINT"2SUPP Uar,able1,Uar , ab 

A 

8,P5,CE,E9,01,85,E9,P5,CF,E9 


'P 

1130 DPTP00,85,EP > 60,20, 15,D7,85,02,P5,9 

320 PRINT"5SPUE P> X,T ;9 :SPUUEGPRDE ZONE 


1 ,P4,92,8D,C0,60,8C,C1,60,20 

ECRPN" 


1140 OPTP71,60,P9,00,F0,OC,P0,00,48>PO* 1 

330 PRïNT"2L0P0 P;B :PFFICHPGE D’UNE 20 

i 

P,63,85,08,PD,IB,63,85,09,68 

NE":PRINTSPCC14 3"SPUUEGPRDEE" 


1 150 DPTP60,20,0P,61,91,08,PC, 1P,63,D0,0 

3^0 PR I NT • PR INT"Tapez une touche pour co 


3,CE,1 B,63,CE,IP,63,60,EE,IP 

ntinuer" :P0KE#2DF,0:GETR* 


1160 DPTP63,D0,03,EE, IB,63,20,0P,61,B 1,0 

350 CLS :PR I NT"UOULEZ-UOUS SPUUEGPRDER LP 

A 

6,50,20,2P,61,4C,1E,61,85,08 

ROUTINE" 

'P 

1170 DPTPPD,1 P,63,38,E5,08,35,08,PD, 1 B,6 

360 PRINT"EN L.H ? COD^CND ?" 


3,E9,00,CD,19,53,B0,0C,F0,03 

370 POKE«2DF,0:GETR*:PRINTR*;:IFR*-"N"TH 

A 

1 180 DPTP4C,83,C4,P5,08,CD,18,63,90,F6,6 

ENPRINT:END 

i 

0,48,P9,03,20,3E,61,PS,EP,20 

380 IFR*<>"0"THENPRINTCHR*C1273 ;:GOTO370 

A 

1190 DPTP19,61,P5,E9,20,19,61,68,4C, 19,6 

390 PRINT :PRINT"P QUELLE UITESSE U0ULE2- 

'P 

1,20,2P,61,85,E9,20,2P,6 1,85 

UOUS FPIRE" 


1200 DPTPEP,P5,E9,P4,EP,85,08,84,09,P0,0 

400 PRINT"LP SPUOEGPRDE ? CFJ^CS] ?" 

A 

0,81,08,F0,0C,PS,08,D0,02,C6 

410 P0KE82DF,0 =GETR*: IFR* <>"F' PNDR*<>"S" 

■ 

1210 DPTP09,C5,08,H9,00,F3,F0,PS,08,00,0 

THENPING: GOT0410 

A 

2 , C6,09,C6,38,B1,08,F0,F4,P0 

420 PRINTR* :PRINT: PR I NT"HETTE2 LE DPGNET 

'P 

1220 DPTP04,B1,08,85,P8,C8,B1,08,85,P9,6 

OPHONE EN POSITION" 


0,P9,9B,20,5F,61,20,CD,60,66 

430 PRlNT"D’ENREG:STREnENT et ppputer su 

A 

1230 DPTP63,4C,PD,C8,PS,88,20,5F,61,63,6 

R UNE" 

V 

8,4C,PD,C8,20,38,61,C9,9B,F0 

440 PR INT"TOUCHE." :POKE»2DF,0:GETP* 

A 

1240 OPTP05.P2,16,4C,85,C4,20,2P,61,E0,0 

450 POKE770,7 :FOR I=0TO3000:n£XT 

'P 

C,F0,11,20,73,61,20,1C.CP.38 

460 IFR*»"F”THENCSPUE"EXTENSIONS",PPD,EP 


1250 DPTP18,65,E9,85,E9,30,02,E6,EP,60,2 

0*85BD :GOTO480 

A 

0,2P,61,4C,2P,61,P2,00,4C,C6 

470 CSPUE"EXTENSIONS",PPD,EPD^cSBD.S 

i 

1260 DPTP61,P2,0C,4C,C6,61,20,38,61,CS,8 

480 PRINT :PRINT"PU REDEHPRRPGE ; IL FPUDR 

A 

B,F0,05,P2,F5,4C,85,C4,E0,10 

P INI TIPL ISER" 


1270 DPTPD0,05,84,D0,98,00,06,20,ES,00,2 

490 PRINT-'LE UECTEUR DU ’!> EN FPISPNT : 

▲ 

0,88,CE,20.2P.61,B5,O0,F0,07 

" 


1280 DPTP20,2P,61,20,2P,61,60,20,73,61,4 


42 






C,6C,6L,02,10,4C,FO,6;,O2,00 

/K 

0,84,0 1,03,38,20,08,CF,20,30 

1290 D0T04C,F0,61 ,00,16,63,OC,17,63,8C,1 

1 

1630 D0T0E7,00,00,Bl,00,85,02,08,81,00,8 

0,63,8C,16,63,60,02,01,00,00 

A. 

5,03,05,00,18,69,02,85,00,30 

1300 D0T0B1,CE,C9,C0,00,30,20,33,62,B1 , C 


1640 DOTO02,£6,01,02,00,00, 00, 01,00,31,3 

E,C3,20,F0,F7,B1,CE,03,0F,63 


3,E6,00,00i02,E6,01,C8,C4,02 

1310 DOTOD0,17,C8,C0,35,D0,r4,E8,2C,Ol,e 

A 

1650 DOTOD0,Fl,05,33,18,69,28,85,33,30,0 

2,38,18,65,CE,85,CE,65,CF,69 

1 

2, E6,34,C6,03,D0,DE,60 

1 320 DOTO00,85, CF , 00,01 , B0,00, B 1 , CE , 09 , 1 


1660 DOTO*,«586 

«,63,00,08,C8,C0,02,00,F 4,CA 

n' 

1670 0OT03?,00,3B,00,86,00,3C,00,8B,00,8 

1330 08T080,D0,DD,50,20,S3,52,05,CF,C5,3 


C,00,88,00,57,48,43,4C,45,00 

0,30,85,00,06,05,CE,C5,9C,90 


1680 DOT057,80,00,48,4F,40,45,00,52,01,0 

1340 DOTOOO,03,FF,P0,FF,20,ED,CB,6c,68,4 

i 

0,46,4 3,4E,4 4,00,53,57,41,50 

C,06,C4,Bl,CE,00,03,4C,33,52 


1630 DOTO00,53,4 1,56,45,00,4C, 4F, 4.1,44,0 

1350 DOTOC3,3O,F0,F3,20,83,62,O3,00,F0,E 

'r 

0 j BD i00 1 00 « 00 

E , E6,CE,00,02,E6,CF,60,20,38 


1700 DOTO* 

1360 00T06l,C9,F7,F0,0C,09,FF,00,FF,20,E 

A 

1 704 REn=“===“===“=“=«**“=“==«*'»"=»*— 

0,CB,68,68,4C,06,C4,20,20,61 

i 

1705 REH“ POUR RELOGER LO ROUTINE 

1370 DOTO20,73,61,03,F7,20,5F,61,20,E3,3 

▲ 

1706 REn========= ============-=»=>-=-=»== 

0,20,8B,CE,05,00,F0,01,60,20 


1710 DOTO1,60,20,546,31,566,FE.C0,101,Cl 

1380 D0T020,61,20,20,61,20,20,61,05,E9,0 


,104,71,10E,310,113,31 B,110,100 

4,EO,85,CE,84,CF,20,40,62,05 

A 

1720 D0T011F,310,124,318,127,310,128,310 

1390 DOTOCE,04,CF,85,E9,84,EO,20,1C.C0.9 

i 

,130,31 B,133,100,133,120,13C,1 1E 

8, 18,65,ES,85,E3,05,EO,63,00 

JK 

1730 DOTO141,310,143.31B,14E.319,150,318 

1400 D0T085.E0,60,57,48,43,40,45,57,80,3 

/ P 

,163,13E,168,119,160,113,171,113 

0,00,00,00,00,00,57,48,43,4C 


1740 D0T0174,120,173,120,1B2,15F,IBS,CO, 

1410 D0T045,20,57,43,54,48,4F,55,54,20,5 


1BF,15F,1C7,138,103,120,100, 173 

7,45,4E,44,00,57,45,4E,44,20 

V 

1750 D0T01EB,120,1EE,120,1F3, 1C6,1F8, 1C6 

1420 00T057,49,54,48,4F,55,54,20,57, a 8,4 

A 

,1FB,138,216,120,210,120,220,120 

3,4C,45,00,20,E3,00,C3,58,F0 

'P 

1760 D0T0224,173,227,1BC.22C,1F0.231,1F0 

1430 DOTO05,02,10,4C,85,C4,E6,E3,00,02,E 


,234,316,237,317,230,310,230,316 

6,EO,00,00,61,E9,F0,EF,C3,5O 

A 

1770 D0T024B,2B3,256,30F,261,201,276,314 

1440 DOTOF0,08,99,DE,63,C8,03,00,F0,F0,0 

9 

,285,2B3,206,2B3,200,2B3.2BB,138 

3,00,33,DE,63,C8,38,18,65,E9 

/K 

1780 D0T02CE,120,201,173,206,15F,2E4,120 

1450 00T085,E3,90,02,E6,EO,05,90,04,3B,8 

'P 

,2E7,120.2E0,12O.2F5.240 

5,00,84,01,00,04,02,00,B 1,00 


1790 DOT035F,3DE,363,30E,387,3DE,38E,3DE 

1460 DOTOF0,27,DD,DE,63,00,1F,C8,E6,BD,D 

A 

,30E,3DE,453,440,465,440,*,* 

E,63,D0,F8,38,48,O0,02,B1,00 

H' 

1 733 —* = «se: = = r 

1470 DOTOOO,C8,B1,00,20,C1,E0> 09,20,23,1 

A 

1735 REH= DOTOS O’ODOPTOTION POUR 

2,CC,68,08,03,00,F0,06,C8,00 


1736 RETI= L’ORIC-OTHOS 

1480 OOTOD3,BD,DE,63,D0,10,00,02,81,00,0 


1737 REn===========*=='================= 

0,C8,B 1,00•20,C1,E0,09,20,20 

A 

1800 DOT05E,C47E,C485,00,C023,C9F1,CE,CF 

1430 OOTOC1,E0,O0,00,B1,00,48,C8,B1,00,8 


17,CE8B,D5,CF06,CE70,08,E856,E7O0 

5,01,68,85,00,05,01,D0,OB,09 


1810 DOTODF,C6BD,C6E8,E4,C023,C3F1,F5,07 

1500 DOTO0D,20,12,CC,09,00,20,12,CC,60 


D0.D715,155,C47C,C483,1B0,C8C1,C800 

1510 DOTO*,8430 


1820 DOTO1C4,C8C1,C80D,100,C47E,C485,100 

1520 DOTOOO,77,02,OC,76,02,85,FB,84,FC,0 

A 

,C04E,CO IC,204,C4 7E.C485 

D,03,03,OC,04,03,85,FD,84,FE 

l 

1830 DOT0213,CF 17,CE8B,230, CCB0, CBED,2CB 

1530 DOTO60,03,1E.4C,12,CC,20,FC,00,85,B 


,C433,C406,2DC,CF 17,CE8B 

8,84,89,60,20,40,64,85,00,84 

'P 

1840 DOT023F,C439,C406,2C6,CCB0,CBED,34C 

1540 DOTO01,05,28,04,29,85,02,84,33,20,0 


,C47E,C485,33D,E0C5,E0C1 

3,CF,20,40,64,05,28,C5,02,F0 

A 

1850 D0T03BB,E2C5,£0C1,3C0.E0C5,E0C1,306 

1550 DOTO05,O2,O8,4C,85,C4,O5,29,C5,03,O 

i 

,CCD3,CC12,3DB,CCD9,CC12 

0,F5,05,28,F0,04,00,02,00,00 


1860 0OT044B,D188,00FC,462,D065,CFD9,470 

1560 D0T005,29,F0,04,00,01,00,02,00,04,8 


,C47E,C485,438,E853,E73D 

1,30,48,Bl,B8,91,00,63,91,83 


1870 DOT0403,D8C8,0800,40E,D065,CFD3,4B1 

1570 D0T083,C0,FF,D0,F 1,60,20,90,E7,05,3 

A 

,D8C8,D80D,4B8,0067,CFDB 

3,04,34,85,00,84,01,20,03,CF 

V 

1880 DOTO300.CO4E,C01C,302,CCD3,CC12,448 

1580 001020,00,08,86,02,2e,09,CF,20,0C,0 

A 

, CCD3,CC17,4O6,D0b5,LFCJ9 

8,86,03,03,36,20,DB,CF,20,30 

'P 

1830 D0T04FB,E853,E79D,508,0067,CFDB,508 

1530 D0T0E7,00,00,05,02,91,33,08,05,03,3 


,E853,E73D,4BB,E853,E79D,*,*,* 

1,33,05,33,18,63,02,85,33.05 

A 

1 300 REH S = 

1600 007034,63,00,85,34,00,00,02,ee,B 1,0 

i 

1310 REH» OORESSES DES ROUTINES 

0,81,33,E6,33,D0,02,E6,34,C8 

A 

1320 Ktn= DEF ÎMSSONT LES FONCTIONS » 

1610 00TOC4,02,D0,F 1,05,00,18,63,23,3o,0 

'P 


0,05,01,63,00,85,01,C6,03,D0 


1310 OOTOCn,10F,IFS,1F0,1BC,27E,2?9,?D3, 

1620 DOTOOC,60,20,3D,E7,05,33,04,34,85,0 


280,445,430,347,452,490,4F0,233,* 
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LE CLASSEMENT 
INSTANTANE 

D. VASILJEVIC 


■ K ous avez certainement étudié toutes les méthodes de tri, et 
vous voilà devant votre clavier, patientant que les intermina- 
blés boucles imbriquées classent quelques malheureux tableaux 
ou fiches. 

L'auteur de ces lignes vous invite à oublier tout cela car, à moins 
d'avoir à classer des nombres astronomiques à la neuvième décimale 
près, en pratique, vous n'en avez nullement besoin. 


Que trie-t-on dans la vie cou¬ 
rante ? La plupart du temps, on 
trie des nombres entiers repré¬ 
sentant une quantité ou une pro¬ 
priété quelconque. 

Pourtant, ces nombres étant 
naturels, ils occupent une place 
naturelle dans leur ensemble. 

C'est l'idée de base : il suffit de 
remplacer le doute que comporte 
chaque tri par la certitude du clas¬ 
sement naturel, en substituant la 
référence à la valeur. 

Tapez les quelques lignes du lis¬ 
ting n° 1 et lancez le programme. 
Les nombres entiers aléatoires, 
de 0 à 100, sont imprimés dans 
l'ordre de leur apparition et clas¬ 
sés instantanément dans le 
tableau A à l'indice égal à leur 
valeur (ligne 10). C'est tout, le tri 
est terminé ! 

Il suffit maintenant de les impri¬ 


mer (ou de les empiler dans le 
même tableau, la libération des 
places étant plus rapide que l'oc¬ 
cupation de fait des trous). 

En prenant l'indice de boucle 
croissant, l'ordre sera croissant et 
inversement. Cette fois, c'est la 
valeur qui est égale à l'indice et 
le contenu du tableau, contraire¬ 
ment à tous les autres types de 
tri, ne contient pas la valeur, mais 
le nombre de valeur identique, ou 
le zéro en l'absence d'une valeur. 
Ainsi, dans l'exemple n° 1, le 
zéro apparaît deux fois, le quatre 
une fois, alors que 1, 2 et 3 
n'existent pas, etc. 

En pratique, il ne suffit pas de 
classer les valeurs, il faut savoir, 
aussi à quoi elles correspondent. 
Un marchand de chaussures, par 
exemple, ayant une centaine de 
modèles, veut savoir combien de 


paires il lui reste de chaque 
modèle et ceci dans l'ordre crois¬ 
sant afin de voir quels sont les 
modèles qui arrivent à épuise¬ 
ment. 

Modifier le programme selon le 
listing n° 2. 

Cette fois, les références (numé¬ 
ros des modèles) seront classées 
en même temps que les valeurs 
et à l'indice = valeur. 

A l'impression, les valeurs sont 
accompagnées de leur référence 
(exemple n° 2). 

Pour les nombres entiers, il suf¬ 
fit de connaître la plus grande 
valeur possible, afin de dimen¬ 
sionner le tableau en consé¬ 
quence, mais on peut, aussi, se 
passer de tableaux (listing n° 3). 
Toutefois, en Basic, cette 
méthode est moins rapide que 
celle du listing n° 1 : pour 4000 
nombres 1 minute, 21 secondes 


Listim9 mo 1 

1 CRLLttEElfi 

10 DIMFK 100) : FORI = 0TO100 : fi®INT(RND(1 )*100 )■ PRINTfi; ! FK R)=fi( fi )+l : NEXT : PRINT : PR INT 
20 REMRRQUE : Les nombres sont classes. Impression-" 

4R FnRI=0TO100:IFRCI)»0THEN60 
5R FOR-J»1TOflCI): PRINTI > «NEXT J 
60 NEXTI : PRINT : PRINT : CRLL#EDE0 <END 
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Listing no 2 

1 CRLL#EE1R'DIMNtC100,100 > 'PRINT"TYPE NOMBRE"'PRINT 

10 DIMRC 100 > 'FORI*0TO100 1 R*INTC RNDC1>*100>iRC R >=RCR>+l:PRINTI,R 

15 N*C R,RC R ) >=STR*CI>'NEXT ! PRINT : PRINT 

20 REMRRQUE : Les nombres sont classes. Impression'" 

25 PRINT"NOMBRE TYPE" 1 PRINT 

40 FORI=0TO100 ! IFRCI )*0THEN60 
50 FORJ-1TORCI>'PRINTI,N*CI, J> = NEXTJ 
60 NEXTI :PRINT;PRINT : CRLL#EDE0 ' END 


Listin9 no 3 

1 CRLL#EElfl 1 CLS>PRINT"PATIENTEZ"-FORI-#2000TO#2000+2*4000 «POKEI,0 'NEXT 
10 FORI-0TO4000:A-INTCRNDC1>*4000)'DOKE#2000+2*R,PEEKC#2000+2*fl)+l>NEXT 
20 REMRRQUE' Les nombres sont classes. Impression'" 

40 FORI-0TO4000'IFDEEKC#2000+2*1>-0THEN60 
50 FORJ=lTODEEKC#2000+2*1) 1 PRINTI; 1 NEXTJ 
60 NEXTI'PRINT'PRINT'CRLL#EDE0'END 


Listing no 4 

1 CALL#EE1R 

10 DI MRC 1000)' FOR I*0TO99'R«=C RNDC 1 >*10 ) ' PRINTflj ' R=INTC-fl*100 >*C-1 > 
15 RC R >=RCR >+l'NEXT'PRINT■PRINT 

20 REMARQUE' Les nombres sont classes. Impression'" 

40 FORI=0TO993'IFRCI >*0THEN60 
50 FORJ-1TORCI>'PRINTI/100j ■NEXTJ 
60 NEXTI= PRINT'PRINT'CALL#EDE0'END 


Listing no 5 

1 CRLL#EE1R=S=1 

10 DIMRC 1000>'FORI=0TO49'A=CRNDC1 )*5 >*S = PRINTR; 'A=INTC-R*100>*C-1> = S*-S 
15 RC R+500 )=RCR+500 >+l=NEXT«PRINT = PRINT 
20 REMARQUE- Les nombres sont classes. Impression'" 

40 FORI=0TO999'IFRCI>=0THEN60 
50 FORJ=lTORC I >'PRINTC I-500V100; ' NEXT J 
60 NEXTI'PRINT'PRINT'CALL#EDE0=END 


Listing no 6 

1 HIRES = CRLL#EE 1A 'PR I NT"TYPE NOMBRE"=PRINT 

10 FORX=0TO239 'Y=INTC RNDC 1>*1 99 >'CURSETX,Y, 1'PRINTX,Y'NEXT■PRINT'PRINT 
20 REMARQUE' Les nombres sont classes. Impression 1 " 

25 PRINT"NOMBRE TYPE"'PRINT 

40 FOR Y=0TO199'FORX=0TO239'CURSETX,Y,3'IFPOINTCX,Y>-0THEH60 
50 PRINTY,X 

60 NEXTX,Y'PRINT'PRINT = CRLL#EDE0 = END 


Listing no 7 

1 HIRES'CRLL#EE1R'PRINT"NOMBRE"'PRINT 
10 FOR I «0TO48000 ' fl=»RNDC 1 >*48000 ' A«= I NTC R > « PR INTR 

15 Y=INTCfl/240 >'X-240*C R/240-Y >•IFX-INTC X >>.999THENX-X+1 

16 CURSETX,Y,1'NEXT 

20 REMRRQUE 1 Les nombres sont classes. Impression'" 

25 PRINT"NOMBRE"<PRINT 

40 FORY*0TO199'FORX-0TO239'CURSETX,Y,3■IFPOINTC X,Y >0THEN60 
50 PRINT240*Y+X 

60 NEXTX,Y'PRINT'PRINT'CRLL#EDE0•END 
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pour la méthode de tableau, 
contre 1 minute, 42 secondes 
pour "Doke". Le temps à pren¬ 
dre en considération est celui 
entre "RUN” et la fin de la pre¬ 
mière impression. 

On peut classer de même 
manière et aussi rapidement les 
nombres décimaux. Il faut fixer la 
précision nécessaire (dans la vie 
courante deux décimales derrière 
la virgule). Utilisez le listing n° 4 
(exemple n° 3). 

Pour les nombres négatifs, il faut 
diviser le tableau en deux parties 
égales, le zéro au milieu (listing 
n° 5 et exemple n° 4). 

On peut conclure que ce type de 
classement n'est limité que par la 
taille de la mémoire, mais ceci est 
valable pour tous les programmes 
opérant sur tableaux. 

Les personnes possédant un lec¬ 
teur de disquettes peuvent 
concevoir des fichiers ''DATA'' 
indicés et augmenter encore les 
possibilités. Ce fichier sera de 
préférence unique et séquentiel 
pourvu que leur SED possède une 
instruction de repositionnement 
du pointeur. 

Pour les autres, moins favorisés, 
voici une manière d'augmenter la 
capacité : le classement synop¬ 
tique par substitution des coor¬ 
données (listing n° 6). 

Et pour en finir avec les listings, 
le n° 7, le délire : classement de 
48000 valeurs comprises entre 0 
et 47999 (sans références). 
Durée : 47 minutes, 10 secon¬ 
des. Mais, soyons réalistes, ceci 
n'est qu'une démonstration. 

Il est bien évident que tous ces 
programmes traduits en langage 
machine gagneront encore en 
rapidité. 

On peut ainsi imaginer une toute 
petite routine, synthèse de tous 
ces petits programmes, placée 
dans la zone du deuxième jeu de 
caractères et dans la zone de 
réserve (BFEO-BFFF) libérant en 
mode texte toute la mémoire 
comprise entre #400 et # B3FF. 
En codant la partie valeur sur cha¬ 
que bit et la partie référence sur 
un ou deux octets selon leur 
nombre, on obtient deux zones : 

lntervalle/8 + nombre de référen¬ 
ces = # B3FF - #400. 


Il est évident que l'intervalle doit 
englober le signe et le nombre de 
décimales souhaités. 

En réalité, il est plus pratique 
d'adapter un petit programme en 


fonction du cas traité, ainsi les 
méthodes les plus simples seront 
les plus rapides. Et n'oubliez pas 
que le même principe peut être 
appliqué aux chaînes de caractè¬ 
res. 


Exemple no 1 
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43 

73 

66 

60 

32 

50 

35 

90 

82 

27 

84 

61 

65 

50 

49 

82 

86 

42 

77 

0 

63 

40 

53 

27 

75 

78 

33 

71 

57 

52 

65 

59 

63 

68 

94 

92 

71 

27 

69 

97 

49 

43 

10 

56 

49 

90 

5 

84 

68 

83 

23 

14 

54 

94 

60 

67 

25 

73 

38 

96 

50 

36 

33 

64 

89 

98 

36 

32 

15 

30 

48 

60 

42 

84 

22 

37 

87 

15 

38 
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0 

0 4 

5 

5 

9 : 

10 14 ] 

15 

15 

15 

17 19 22 23 25 27 27 27 30' 32 

32 

33 

33 

35 

36 

36 

37 

38 

38 

40 

42 

42 

43 
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94 
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97 

98 
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ExeroP \ç 

no 2 


TYPE 

NOMBRE 

NOMBRE 

TYPE 

0 

28 

1 

9 

1 

50 

14 

8 

> 

28 

19 

6 

3 

SI 

28 

0 

4 

57 

28 

2 

5 

70 

32 

7 

6 

19 

50 

1 

*7 

32 

57 

4 

8 

14 

61 

3 

q 

1 

70 

5 

10 

87 

87 

10 


9.06913464 

7.81271318 

4.36496412 

; 32408687 

2.41473269 

2.60807686 

.347421469 

3.09703856 

3.89616659 

1.34067816 

4.71082191 

7.64739843 

4.86721665 

4.59823188 

4.28732499 

7.0024613 

8.42799043 


Exemple no 3 


3.33571472 1.43994805 

8.73512063 .833368346 

7.58770384 9.86483931 

.27298971 3.59938257 

6.68306511 4.19080076 


277493441 

2.67671313 

2.17912061 

3.60350284 

6.96941779 

4.91342883 

4.39462794 

2.24428278 

7.91804651 

2.43869281 

8.04135171 

3.35047161 


8.9047549 
6.29221008 
7.73443318 
8.46240339 
4.08850729 
1.4112888 
1.70200566 
5.53617992 
.919080115 
7.76649376 
6.67059337 
2.06768152 


7.29736794 
1.63117823 
3.93819672 
1.87517452 . 

4.09887468 
9.00053685 
3.24666333 
7.93750498 
6.33895772 
4.07119903 
6.00221205 
1.2818223 
2.60569917 
8.99529191 
6.78833279 
6.82938871 
4.29380392 


1.06532989 4.53143547 

3.47436209 4.13044493 

1.31927404 7.6294218 

897003132 2.63929729 

4.04681837 3.11372374 


2.7402673 
5.44334587 
8.74535773 
3.24453328 
6.03887533 
3. 14848414 
.151647761 
6.95044621 
7.58028903 
0.79300036 
.101142506 


222209338 
9.62378462 
2.98923437 
9.89263709 
9.41134206 
3.80027884 
3.63001507 
6.63976349 
5.28929683 
8.17923882 
8.15129931 


.11 

. 16 

23 

.28 

.28 .33 

.35 

.84 . 

9 .92 

1.07 1.29 

1.32 

1.35 1.42 

1 

44 

1 

64 

1 

71 

1 

88 

2.07 

2. 18 

2.25 

2.42 

2 

44 

2 

61 

2 

.61 

2.66 2.68 

2 

75 

2 

99 

3 

12 

3 

15 

3.25 

3.25 

3.34 

3.36 

3 

61 

3 

64 

3 

.81 

3.9 3.94 

4 

05 

4 

08 

4 

09 

4. 

1 

4. 14 

4.2 4 

29 4 

.3 4. 

37 

4. 

56 

4 

6 

4.6 

4.72 4.87 

4 

92 

5 

1 

5.29 

5.45 

5.54 

5.6 6 

.01 6 

.04 6 

.3 

6 

54 

6 

64 

6. 

68 6.69 

6 

79 

6 

83 

6 

96 

6 

97 

7.01 

7.3 

7.59 

7.59 

7.63 

7.65 . 

7. 

74 

7.77 7.82 

7 

92 

7 

94 

8 

05 

8. 

16 

8. 18 

8.43 

8.47 

8.74 

8 

75 

8 

8 

8. 

91 

9 9.01 9.07 

9 

42 

9 

48 

9 

63 

9 

87 

9.9 












Exemple no 4 


2.94268388 
1.83316401 
4.738545 
.181417406 
1.4043577 - 
1.17827117 
3.56921428 
1.03191105 
.103073974 


-4.38213224 

-3.80697683 

210719606 1 

-2.97782237 

.0908502326 

-2.96612909 

-1.66790053 

-4.69803239 

-1.76033414 


3.33725829 • 
2.91047321 • 
98160826 -4. 
3.08423753 - 
1.49986113 - 
1.21220942 - 
2.20447121 - 
2.72113135 - 


■4.35497223 
3.1255796 . 

52500897 3. 

■.715406499 
4.43243852 
2.04662761 
1.16874207 
2.17384898 


4.63521435 
910671915 
93530085 - 
2.64624828 
1.41609539 
.261617774 
2.5094523 ■ 
4.64100111 


-1.24717613 
-2.09101901 
1.41564654 
-3.61077182 
-3.42487598 
-2.76861238 
.17486057 
-3.05130718 


-4.69 -4.52 -4.48 -4.38 -4.35 -3.8 -3.61 -3.42 -3.12 -3.05 -2.97 -2.96 -2.76 
-2.17 -2.09 -2.04 -1.76 -1.66 -1.41 -1.24 -1.16 -.71 -.21 -.17 -.09 .11 .19 
.27 .92 1.06 1.18 1.22 1.41 1.42 1.5 1.34 1.99 2.21 2.51 2.65 

2.73 2.92 2.95 3.09 3.34 3.57 3.99 4.65 4.69 4.74 
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utilitaire. 



OU COMMENT FAIRE 
DES ECONOMIES AVEC SON MINITEL 


U tilité conjointement avec la carte série décrite dans le 
numéro 14 de THEORIC, ce programme vous permettra 
de mettre en mémoire, de visualiser, puis de sauver les 
pages Vidéotext de votre serveur favori. Il vous sera en outre 
possible de les envoyer ensuite à un correspondant I 


Vous pourrez à présent rester le 
temps qu'il vous plaira devant le 
petit écran de votre Minitel à 
relire des pages enregistrées 
auparavant à la "va-vite” sans 
qu'il ne vous en coûte un centime 
en communication, ni que votre 
ligne téléphonique ne soit encom¬ 
brée. 

Ce programme est compatible 
0RIC-1/0RIC ATMOS : une 
modification est à effectuer dans 
le programme Basic de charge¬ 
ment en ligne 130, pour les pos¬ 
sesseurs d'ORIC-1. 

MISE EN OEUVRE 

Tapez le programme UTILITEL, 
puis sauvez-le. Chargez le lan¬ 
gage machine à l'aide du char¬ 
geur DATAS. Vérifiez les check- 
sums et sauvegardez le machine 
à la suite du Basic. Connectez la 
carte série, et l'ORIC n'attend 
plus qu'un RUN pour vous pré¬ 
senter le menu : 

ENREGISTREMENT 
VISUALISATION 
SUPPRESSION 
SAUVEGARDE 
CHARGEMENT 
ENVOI DE PAGES 
RAZ PAGES 
FIN 

Il vous suffit de taper n'importe 
quelle touche pour faire passer 
alternativement chacune de ces 
propositions en vidéo inverse. Un 
appui sur RETURN validera votre 
choix. 


ENREGISTREMENT 

Il vous faudra effectivement com¬ 
mencer par là. Si toutefois vous 
choisissez VISUALISATION, SUP¬ 
PRESSION, ENVOI ou SAUVE¬ 
GARDE sans pages en mémoire, 
le message "Pas de pages en 
mémoire... " vous ramènerait sur 
le bon chemin, c'est-à-dire au 
menu. 

Quand cette option est validée, 
elle démarre automatiquement et 
l'inscription "Enregistrement 
page 1" apparaît. A partir de ce 
moment, tout octet pénétrant 
dans la prise téléphonique s'ins¬ 
crit en mémoire. 

Si une interruption de plus d'une 
seconde a lieu dans la transmis¬ 
sion, le programme considérera 
que la page est terminée et ren¬ 
dra la main. Cette temporisation 
devrait suffire dans la plupart des 
cas, nous verrons quand même 
plus loin comment la modifier si 
nécessaire. 

Notons qu'il est possible de défi¬ 
nir la fin de l'espace qu'occupe¬ 
ront les pages en mémoire, et que 
le message "plus de place... " 
vous précisera si cette limite est 
atteinte. 

La touche REPETITION pourra 
vous être utile (si le serveur l'uti¬ 
lise), car son action est de ren¬ 
voyer la page actuellement à 
l'écran. Vous pourrez ainsi l'en¬ 
registrer APRES en avoir eu 
connaissance. 

De toute façon, si vous faisiez 
l'acquisition d'une page indésira¬ 


Frédéric TARAUD 


ble, il vous suffirait de valider 
l'option. 

SUPPRESSION 

Après avoir indiqué le numéro de 
la page à supprimer, un simple 
appui sur RETURN "rayera de la 
carte" la page en question. 

VISUALISATION 

De la même façon que pour la 
suppression, vous rentrerez le 
numéro de la page. La page s'ins¬ 
crira sur le Minitel avec en ligne 
0 la mention "Page XX", XX cor¬ 
respondant au numéro choisi 
auparavant. 

SAUVEGARDE 

Ceci sauvegardera la zone 
mémoire des pages actuellement 
enregistrées en précisant à 
l'écran les adresses limites et en 
vous demandant le nom du 
fichier. 

CHARGEMENT 

Vous permettra de recharger un 
fichier sauvé par l'option précé¬ 
dente. 

Remarquons que les deux derniè¬ 
res options pourront très facile¬ 
ment, et avec bonheur, être 
adaptées aux disquettes. 

ENVOI DE PAGES 

Vous pourrez, grâce à cette 
option, renvoyer des pages enre¬ 
gistrées à un de vos amis. Deux 
possibilités vous sont offertes : 

— envoyer la totalité des pages 
en mémoire, 

— envoyer certaines des pages 
en mémoire. 

Dans le premier cas, votre corres¬ 
pondant pourra "feuilleter" vos 
pages en appuyant sur la barre 
d'espace de son Minitel, faire 
réapparaître la même page avec 
REPETITION, ou se déconnecter 
avec CNX/FIN. 

Dans le second cas, c'est vous 
qui choisirez une à une les pages 
à transmettre et c'est également 
vous qui déconnecterez. 
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RAZ PAGES ET FIN 

Ces deux commandes se passent 
évidemment de commentaires. 
Notez simplement que la RAZ ne 
fait que placer un double zéro en 
début de zone de stockage, et ne 
détruit donc pas les pages, 
contrairement à la commande 
SUPPRESSION (c'est toujours 
bon à savoir... ). 

QUELQUES DETAILS 

Les pages sont stockées à partir 
de l'adresse #2200. L'octet de 
poids fort, définissant la fin de 
zone de stockage, doit être placé 
en #05. Ceci est effectué en 
ligne 200. Dans le cas présent, 
cette zone de stockage s'étendra 
de # 2200 à # 9800, ce qui nous 
laisse environ 30 ko, soit 20 à 30 
pages... 

Le nombre maximum de pages a 
été ici fixé arbitrairement à 30 par 
l'instruction E = 31:DIM T(E) en 
ligne 140. 

Signalons que le programme 
vous signalera si la capacité de ce 
tableau est dépassée, et stoppera 
tout nouvel enregistrement. Vous 
pourrez toujours augmenter cette 
capacité, mais attention, le 
HIMEM est en #2000, et un 
tableau est gourmand en 
mémoire. 


PRINCIPE DU STOCKAGE 

La méthode utilisée ici ne brille 
certainement pas par son origina¬ 
lité, ce qui prouve au moins 
qu'elle est efficace... 

Chaque page est précédée par 4 
octets. Les deux premiers con¬ 
tiennent l'adresse de la page sui¬ 
vante, et les deux autres la lon¬ 
gueur de la page. Un double zéro 
signale la fin de la dernière page. 
Cette adresse est contenue dans 
la variable EOF, alors que les 
adresses des différentes pages 
sont contenues dans le tableau T. 
Ainsi, T(3) sera égal à l'adresse 
de la troisième page, ou plus 
exactement, il faudra ajouter 4 
pour obtenir l'adresse du premier 
octet de cette page. 

Le tableau T ainsi que EOF sont 
mis à jour par un sous-programme 
Basic situé de 11 70 à 1290. 


LES ROUTINES MACHINE 

La première est la routine d'enre¬ 
gistrement et se situe de # 2000 
à # 202D. Son mécanisme est le 
suivant : après avoir été lancée 
par le Basic (ligne 620), elle 
attend l'arrivée d'un octet. Si rien 
n'arrive au bout d'une seconde, 
elle revient au Basic. Si celui-ci ne 
détecte aucun octet enregistré, il 
relance la routine et ainsi de suite 
tant que rien ne se passe. Par 
contre, si une page est envoyée, 
la routine ne reviendra au Basic 
que lorsque le dernier octet sera 
transmis, c'est-à-dire après une 
seconde de "silence”. Le Basic, 
voyant qu'au moins un octet a 
été reçu, considérera la transmis¬ 
sion terminée. 

Comme il a été dit plus haut, il 
vous sera possible de modifier 
ceci de telle sorte que l'enregis¬ 
trement ne cesse que lorsqu'un 
nombre minimum d'octets est 
enregistré. Pour ce faire, modifiez 
la ligne 650 eh conséquence : IF 
DEEK(0)<D + X avec X nombre 
d'octets à enregistrer avant fin de 
page -4 (ici X = 14). Ceci peut 
être utile avec des serveurs qui 
envoient d'abord un effacement 
de page ( # OC) puis, après seu¬ 
lement quelques secondes, la 
page. 

Avant appel, 00 et 01 doivent 
contenir l'adresse de stockage, 
05 le poids fort de fin de mémoire 
et 04 zéro. Si la fin de mémoire 
est détectée, 04 passera à 1, et 
un retour immédiat au Basic s'ef¬ 
fectuera. Les octets 02 et 03 


sont utilisés pour la temporisation 
d'une seconde. 

La seconde routine permet des 
transferts de blocs. Elle est utilisé 
par l'option SUPPRESSION. Pour 
son utilisation, différents poin¬ 
teurs devront être positionnés : 

06 et 07 : adresse de départ. 
08 et 09 : adresse de destination. 
OA et OB : longueur du bloc. 

Les connaisseurs reconnaîtront la 
routine de transfert de l'ORIC, 
recopiée ici pour éviter des pro¬ 
blèmes de compatibilité. 

La troisième routine permet, 
quant à elle, l'envoi sur le Mini¬ 
tel d'une zone mémoire avec les 
pointeurs suivants : 

06 et 07 : adresse de départ. 
OA et OB : longueur. 

Elle se trouve de #204A à 
#2066. 

Ces trois routines utilisent une 
sous-routine d'envoi d'un octet 
sur le Minitel située de # 2067 à 
# 207B. 

Les dernières routines (de # 207C 
à #2121) concernent la gestion 
de l'envoi des pages : envoi de la 
porteuse, affichage de messages, 
test de clavier, etc... 

La zone de #2122 à #21D4 
contient les différents messages 
à afficher et les séquences à 
transmettre. 

Ces explications devraient vous 
permettre de saisir le fonctionne¬ 
ment de ce programme, et vous 
aider à le développer afin de le 
rendre encore plus performant. 


10 7 + »: *■ +■+■■ +■ * *'■ * : * +: 

20 ’ + * 

30 ’ * UTILITEL * 

40 7 * 

50 ’ * Frédéric TARAUD •+ 

80 7 *■ * 

70 ’*■ le 04/03/36 * 

80 ’ * * 

30 » *'*:*:*:*:*:*:*»:*:»:*:**%»:* 

100 ’ 

110 7 Initialisations 
120 7 

130 CLS:PAPER0:INK7:HIMEM#2000 
140 E=31*DIM TtE)sP0KE#26fl, 14 
150 IF DEEKC#2017)=#3S0 THEN 170 
160 CL0AD"Utilitel" 

170 POKE#3B1,#01 7 

130 P0KE#3S2> #6B 7 Init UART 

190 P0KE#383»#33 7 

200 POKE#05 ,#93 7 OPS Fin Mémoire 
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210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 


F l as f i n Mémo i r e 
Début de 
Fichier 


POKE#04 ,«00 
DOKE«2200, 00 

DOKE« 2202» 00 
1 

1 Menu 

CLS 

PLOT'10, 05» "Enregistrement" 

PLOT 10» 06,"Visuai isation " 

PLOT10,07, " Suppression " 

PLOT 10,08," Chargement " 

PLOT10,09, " Sauvegarde " 

PLOT10» 10»"Envoi de pages" 

PLOT10.il," PAZ nages 
PLOT10,12," Fin 
1=5 

PLOTS, 1,0: PLOTS, 1,23 : PL0T25, 1,16 
PLOTS, N,8:PL0T9,N,S 
GETZ$:Z=ASCCZ$): IF Z = 13 THEM 420 
1=1+1:N=I-1 
IF 1=13 THEN 350 
GOTO 360 

A=I—4: IF A=S THEM PDKE«26A,15:END 
IF o=7 THEN 460 

ON A GOSUB 530,730,970,1430,1310,1530 

GOTO 260 
» 

’ RAZ pages 


CLS:PRINT" RAZ Pages":PRINT 
PRINT"Confirmation. .. (0/N) :" 

GETZ$:IF Z*>="0" THEN PR INT “RAZ. 
GOTO 260 


":WAIT50:GOTO170 



’ Enregistrement pages 

i 

CLS 

IF PEEK4) = 1 THEN RETURN 

IF DEEK<#2200)=0 THEN D=#2200:N=0:GOTO 610 
DRAP=0:OOSUB 1240:IF DRAP=1 THEN WAIT 100:RETURN 
D=E0F 

DOKE 0,D+4 

CLS:PRINTCHR*<27)CHR9K140)"Enregist rement page "iN+i 
CALL«2000 

IF PEEK(4)=1 THEN PRIMT"Plus de P I ace. .. ": GOTO 660 
IF DEEKC0)<D+14 THEM 630 
F=DEEK C0) 

L=F-CD+4) 

DOKED ,F’Adr.debut page suivante 

DOKED+2,L’Longueur page 

DOKEF ,0’MarQue fin de fichier 

PRINT:PRINT"Longueur enresistrement :";Lî"Octets":PRINT 
PRINT"Autre enregistrement CO/N)"5:GETZ*:IFZt="0"THEN 560 ELSE RETURN 
» 

’ Envoi des pages 


ENV=0:CLS 

FLAG=0:GOSUB 1170:IF FLAG=1 
CLS:PRINT" Envoi de Pages": 
PR INT" Page 1 a " îNî : INFUT P 
IF P<1 OR P)N THEN 790 
DIZ=INT(P/10) 

UNIT=P— C10+DIZ) 

POKE«21C4,DI Z +«30 
P0KE#21C5,UNIT+«30 
CALL#2112 ’BlancK 


THEN WAIT 50:RETURN 
PRINT 
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S60 

B70 

ES0 

E90 

900 

910 

920 

930 

940 

950 

9B0 

970 

9S0 

990 

1000 

1010 

1020 

1030 

1040 

1050 

10E0 

1070 

10S0 

1090 

1100 

1110 

1120 


Messsse No do page 


920 


C0LL#211 Fl 
D=T <! P) +4 

L=DEEKCT C P)+2):GOSUB 
IF EMV=1 THEN RETURM 
PRINT:PRINT"Outre pages 
’ SP Envoi 
POKE#3S0,#0C 
DOKE #06,D 


CO/N)"5:GE7Z$:IFZ*="0" THEN 7S0 ELSE RETURN 


le Minitel 


DOKE #00,L 
COLL «2040 
RETURN 


Efface 
Départ 
Longueur 

Envoi sur Mini tei 


Suppression 

CLS 

PRINT" Su pp ression": PRINT 

FLOG=0:GOSUB 1170: IF FL0G=1 
PRINT"Page 1 a ";N;:INPUT P 
IF PCI OR P> N THEN 1030 
IF P=N THEN DOKE TCP),0:G0T011E0 
L= C EOF—T C P+1 ))+2 
:DOKE«06,TCP+l) 


THEN WOIT 50:RETURN 


:DOKE#08,TCP) 

:DOKE«00,L 
:COLL#202E 
FOR X=P TO N-l 
L=DEEK CT C X)+2) 


Deoart 
Destination 
Longueu r 
"ransfevt 

ReaJ ustement 


1130 TC X+l> =T CX)+L+4 ’ des descriPteuTs 
1140 DOKE TCX)» TCX + 1)’ 

1150 NEXT X 

11E0 PRINT:PRINT"Outre suppression CO/N)"; :GETZ*:IFZ*=“0"THEN1000ELSERETURN 
1170 ’ 

11S0 ’ Sous programme : 

1190 ’ Nombre de pages enregistrées 
1200 ’ Détermination des adresses 
1210 ’ et contrôle presence pages 
1220 ’ 

1230 IF DEEKC«2200)=0 THEN FL0G=1:PRINT"Pas de Pages enresistrees.RETURN 
1240 TCI)=#2200 :N=2 
1250 T C N)=DEEK C T C N—1)) 

12E0 IF DEEKCTCN))=0 THEN E0F=TCN):N=N-l:G0T0 1290 

1270 IF N+-1 =E OMD DROP=0 THEN PRINT"Ca.pac i te depasee. DR0P=1 : RETURN 

12S0 N=N+1: GOTO 1250 
1290 RETURN 


1300 ’ 

1310 ’ Sauvegarde 

1320 ’ 

1330 CLS 

1340 PRINT:PRINT" Sauvegarde":PRINT 

1350 FLOG=0:GOSUB 1170:IF FL0G=1 THEN WOIT 50:RETURN 
1360 PRINT CHRSC27)CHPSC 140) N"Pages" 

1370 PRINT:PRINT"De #2200 a ";HEX$CE0F+1):PRINT 
13S0 INPUT"Nom :";N* 

1390 PRINT:PRINT"Oppuyer sur une touche":GETZt 
1400 CSOVE N*,O#2200.E CEOF+1) 

1410 P0KE#3S1,0 :P0KE#3S2>#6B:P0KE#3S3, #3S 


1420 RETURN 
1430 ’ 

1440 ’ Chargement 

1450 ’ 

1460 CLS 

1470 PRINT" Chargement":PRINT 

14S0 PRINT"Nom :"î:INPUT NS:PRINT 
1490 PRINT" Appuyer sur une touche":GETZ® 
1500 CLOOD NS ' 
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1510 P0KE#3S1t 0:P0KE#3S2,fcEB:P0KE£3S3»#38 
1520 RETURN 
1530 ’ 

1540 ’ Envoi vers correspondant 
1550 » 

15E0 CLS 

1570 FLAG=0:GOSUB 1170: IF FLAG=1 THEN WAIT 50: RETURN 
1580 DEF USR=#20B9 
1590 CLS:ENV=1 

1E00 PRINT" Envoi vers un correspondant" 

1E10 PRINT:PRINT" Envoi de toutes les pages" 

1E20 PRINT" en mémoire CO/N) ?" 

1E30 PRINT: PRINT" «:ESC pour le menu)" 

1E40 REPEAT:GET ZS>: Z=ASCCZ$) :UNTIL 7=73 OR Z=7S OR Z=2' 

1E50 IF Z=7S THEN GOTO 1830 

1E60 IF 1=73 THEN GOTO 1E30 

1E70 RETURN 

1ES0 ’ 

1E30 ’Envoi toutes les pages 
1700 ’ 

1710 GOSUB 1950 
1720 P=1 

1730 PRINT3101 11î"T ransmiss t on Page "?P 

1740 GOSUB 810’Envoi page 

1750 A=USR(Z) 'Attente réponse : 

1760 IF A=1 THEN P=P-1 'Répétition 

1770 IF A=—1 THEN 1300 ’CNX/FIN 

1780 P=P+1 'ESPACE 

1790 IF PON+1 THEN 1730 

1800 GOSUB 2020 

1810 GOTO 1590 

1820 ’ 

1830 'Envoi une page a la fois 
1840 ’ 

1350 GOSUB 1950 
1860 PRINT 

1870 PRINT"Paso 1 a ";N?:IMPUT P 
1880 IF P<1 OR P> N THEN 1870 
1830 GOSUB 810 'Envoi 
1900 PRINT"Putre page CD/N)" 

1910 REPEAT:GET Z$:UNTIL Z*="0" OR Z*="N“ 

1920 IF Z$="0" THEN 1870 
1930 GOSUB 2020 
1940 GOTO 1590 
1950 ’ 

19E0 ’ SP Envoi Porteuse 
•1970 ’ 

1980 PRINT:PRINT"Envoi porteuse..." 

1990 CALL#207C 

2000 PRINT: PRINT"Correspondant prêt" 

2010 RETURN 
2020 ’ 

2030 ’ SP deconnection 
2040 ’ 

2050 PRINT:PRINT"Fin de transmission..." 

20E0 CALL #20AA 

2070 PRINT"Deconnection. . . ":WAIT 100 
2030 RETURN 


10 ' 

20 ’ Chargement DATAS 
30 ’ 

40 ’ UTILITEL 
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50 ’ 

E0 CLS:CHKS=0:C=1 :LIGNE=200 
70 PRINT"Vou1ez-vous l’imprimante ?" 

S0 GET Z*:IF Z*="0" THEN P0KE#2F1,12S ELSE POKE#2F1,0 
90 FGR I=#2000 TO #21DF 

100 READ D*:D=VAL<:"#"+D$) :CHKS=CHKS+D*C:C=C+1 : POKE I,D 

110 IFC=17THEN PRINT"Li?ne "'LIGNE;" CHKS="»CHKS:LIGNE=LIGNE+10:CHKS=0:C=1 
120 NEXT 

130 ’ ORIC-1 :DOKE#20E3> #DF15 
140 PRINT"(S> pour sauver" 

150 PRINT"Autre touche pour arrêter" 

1E0 GET 1% 

170 IF Z$ <>"0" THEN END 

1S0 CSAVE"Uti I itel ",A#2000>E#21DF 

190 END 


200 

DOTA 

A9, 

00, 

85, 

02, 

85, 

03,AD, 

81, 

03, 

29, 

08, 

D0, 03, EE, 

02, 

D0 

210 

DATA 

F5, 

E6, 

03, 

D0, 

Fl, 

60,AD, 

80, 

03, 

A0, 

00, 

91,00,E6, 

00, 

D0 

220 

DATA 

DF, 

E6, 

01, 

A5, 

01, 

C5,05, 

D0, 

D7, 

A9, 

01 , 

85, 04,60, 

A2, 

00 

230 

DATA 

A0, 

00, 

C4, 

0A, 

D0, 

04,E4, 

0B, 

F0, 

0F, 

Bl, 

06,91,03, 

CS, 

D0 

240 

DATA 

Fi, 

E6, 

07, 

E6, 

09, 

ES, 4C, 

TA 

y 

20, 

60, 

A2, 

00, A0, 00, 

C4, 

0A 

250 

DATA 

D0, 

04, 

E4, 

0B, 

F0, 

10,B1, 

06, 

35, 

16, 

20, 

67, 20, CS, 

D0, 

EE 

260 

DATA 

E6, 

07, 

ES, 

4C, 

4E, 

20, 60, 

SA, 

48, 

93, 

48, 

AD, SI, 0c*, 

29, 

10 

270 

DATA 

F0, 

F9, 

A5, 

16, 

8D, 

80, 03, 

68, 

AS, 

68, 

AA, 

60,A3,22, 

A0, 

21 

280 

DATA 

20, 

E9, 

20, 

20, 

FA, 

20, C9, 

13, 

D0, 

F9, 

20, 

FA,20,C9, 

5c*, 

D0 

290 

DATA 

F2, 

A9, 

29, 

A0, 

21, 

20,E9, 

20, 

A3, 

35, 

A0, 

21,20,E9, 

20, 

20 

300 

DATA 

FA, 

20, 

C9, 

20, 

D0, 

F9, 20, 

12, 

21, 

60, 

A9, 

SE, A0,21, 

20, 

ES 

310 

DATA 

20, 

A9, 

Dl, 

A0, 

21, 

20,E9, 

20, 

60, 

A3, 

62, 

A0, 21,20, 

E9, 

20 

320 

DATA 

20, 

FA, 

20, 

C9, 

13, 

D0,0F, 

20, 

FA, 

20, 

C9, 

43,D0,02, 

F0, 

10 

330 

DATA 

C9, 

49, 

D0, 

EC, 

F0, 

07, C9, 

20, 

D0, 

É6, 

A3, 

00, 2C, A3, 

FF, 

2C 


SUPER PROTÜ DE PRM7TEFT1PS... 

Attention les quantités sont limitées... Profitez-en ! 


REMISE : 1 TITRE + 1 LIVRE : 

2 TITRES + 1 LIVRE : 

3 TITRES (ou plus> + 

TITRE Prix normal 

BASIC TURBO.140 

ORDI TIERCE. 140 

SUPERCOPY.(hard copy GP100)- 120 

CHALLENGER. (Othello). 130 

DOSSIER G.(affaire Green Peace) 140 


-30Z 

-40Z 

1 LIVRE : -50Z 

TITRE prix normal 


HISTORIC. (éducatif). 100 

PLANETE BLEUE, (éducatif ). 120 

TORTUE LOGIC. (LOGO). 150 

MOTS CROISES. 150 

LIVRE "AU COEUR DE L’ATMOS". 75 


Il existe bien d’autres titre COBRA SOFT, demandez le catalogue 86 en 
utilisant le bon de commande ci-dessous et en précisant "Catalogue". 

BON DE COMMANDE 

Veuillez me faire parvenir les titres suivants : 

à cette adresse : 1/. .... 

2 /. . 

Nom :. 3/. .... 

4 /. . 

adresse. 5/ AU COEUR DE L’ATMOS. 75 

. Total normal : .... 

Code. Ville. Remise : - % 

TOTAL DU : .F 

Renvoyer ce bon de commande avec le chèque de réglement 
à : COBRA SOFT BP 155 71104 Chalon-sur-Saône cedex 
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340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 


DATA 

DOTA 

DOTA 

DOTO 

DATA 

DOTA 

DATA 

DATA 

DOTO 

DOTA 

DATA 

DOTA 

DATA 

DOTA 

DOTO 

DOTO 


09» 01 > 20» 
02'» F0> 06» 
F9, AD,80, 
03, 60» 09» 
20,60, 1 B, 
61 , 53 , 51 , 
20 , 20 , 20 , 

45.53.50, 
20, 00» 1F» 
74, 65, 20, 

52.45.50, 
41, 13,51, 
20, 74, 72, 
20 , 20 , 20 , 
61,67,65, 
00, 13,39, 


24, DF, 
20,05, 
03, 60, 
CS,00, 
39, 6F, 
0C» 00» 
20 , 20 , 
41,43, 
40,41, 
43,4E, 
45, 54, 
20,20, 
61,6E, 
20, 20, 
20,30, 
67, 00, 


20 , 
21 , 
48, 
21. 
13, 
1F, 
20 , 
45, 
13, 
58, 
30, 
20 , 
73, 
20 , 
32, 
EA, 


12 , 

CS, 

OD, 

20 , 

39, 

40, 
20 , 
20 , 

51, 
2F, 

52, 
20 , 
6D, 
20 , 
00 , 
EA, 


21 , 

D0, 

81, 

E9, 

68 , 

41, 

20 , 

20 , 

20 , 

46, 

65, 

20 , 

69, 

20 , 

00 , 

EA, 


60, 

F6, 

03, 

20 , 

00 , 

13, 

20 , 

20 , 

20 , 

49, 

76, 

20 , 

73, 

20 , 

1F, 

EA, 


85, 

60, 

29, 

60, 

13, 

51, 

20 , 

20 , 

45, 

4E, 

6F, 

20 , 

73, 

00 , 

40, 

EA, 


02,34, 
OD, 81 » 
10,F0, 
09, B3, 
33,61, 
13, 48, 
54,El, 
20 , 20 , 
53,50, 
30,53» 
69, 72, 
46, 69, 
69,6F, 
00, 1F, 
41, 13, 
EA, EA, 


03, 

03, 

F9, 

00 , 

58» 

20 , 

70, 

20 , 

3A, 

74, 

20 , 

6E, 

6E, 

40, 

51, 

EA 


00, 00, B1 
29, 08,F0 
68, 3D, 80 
21,20,E9 
53, IB, 33 
20 , 20 » 20 
65, 70, 20 
20 , 20 , 20 
53, 75, 69 
6F,70, 20 
00, 1F,40 
20, 64,65 
2E,2E,2E 
55, 20, 50 
20,12, 67 
EA, EA,EA 


Chec 

K su ms 

• 

9 ne 

200 

CHKS= 

s ne 

210 

CHKS- 

gne 

220 

CHKS= 

9 ne 

230 

CHKS= 

sne 

240 

CHKS= 

gne 

250 

CHKS= 

g ne 

260 

CHKS= 

gne 

270 

CHKS= 

gne 

280 

CHKS= 

gne 

290 

CHKS- 

gne 

300 

CHKS= 

gne 

310 

CHKS= 

gne 

320 

CHKS= 

gne 

330 

CHKS= 

gne 

340 

CHKS- 

gne 

350 

CHKS® 

gne 

360 

CHKS= 

gne 

370 

CHKS= 

gne 

380 

CHKS= 

gne 

390 

CHKS= 

gne 

400 

CHKS= 

gne 

410 

CHKS= 

gne 

420 

CHK5= 

gne 

430 

CHKS= 

gne 

440 

CHKS= 

gne 

450 

CHKS= 

gne 

460 

CHKS= 

gne 

470 

CHKS= 

gne 

480 

CHKS= 

gne 

490 

CHKS= 


13218 
15477 
13290 
16190 
12221 
16676 
11228 
14822 
19240 
12464 
15517 
14317 
15309 
18318 
11019 
15113 
16495 
16699 
8219 
5794 
9060 
5164 
9983 
11004 
9616 
8954 
12009 
5694 
6721 
28951 
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2000- 

09 

00 


LDO 

# *00 


2002- 

85 

02 


STA 

*02 


2004- 

85 

03 


STO 

*03 


2006- 

OD 

81 

03 

LDO 

*0381 


2009- 

29 

08 


OND 

#*08 


200B- 

D0 

09 


BNE 

*2016 


200D- 

E6 

02 


INC 

*02 


200F- 

D0 

F5 


BNE 

*2006 


2011- 
2013- 

E6 

D0 

03 

Fl 


INC 

BNE 

*03 

*2006 

Enregistrement et 

2015- 

60 



RTS 


tempo 1 seconde 

2016- 

OD 

80 

03 

LDO 

*0380 


2019- 

00 

00 


LDY 

#*00 

04 est mis à 1 si 

201 B— 

91 

00 


STO 

(*00>,Y 

201D- 

E6 

00 


INC 

«00 

capacité mémoire 

201F- 

D0 

DF 


BNE 

«2000 

insuffisante 

2021- 

E6 

01 


INC 

«01 


2023- 

05 

01 


LDO 

*01 


2025- 

C5 

05 


CMP 

*05 


2027- 

D0 

D7 


BNE 

*2000 


2029- 

09 

01 


LDO 

#*01 


202B- 

85 

04 


STO 

«04 


202D- 

60 



RTS 



202E- 

02 

00 


LDX 

#*00 _ 


2030- 

00 

00 


LDY 

#*00 


2032- 

C4 

00 


CPY 

*00 


2034- 

D0 

04 


BNE 

*2030 


2036- 

E4 

0B 


CPX 

*0B 


2038- 

F0 

0F 


BED 

*2049 

Transfert de 

2030- 

B1 

06 


LDO 

C*06),Y 

blocs 

203C- 

91 

08 


STO 

<:*0S> » y 

06,07 : Départ 

203E- 

C8 



INY 


08,09 : Arrivée 

203F- 

D0 

Fl 


BNE 

*2032 

OA.OB : Longueur 

2041- 

E6 

07 


INC 

*07 


2043- 

E6 

09 


INC 

*09 


2045- 

EB 



INX 



2046- 

4C 

32 

20 

JM P 

*2032 


2049- 

60 



RTS 



2040- 

02 

00 


LDX 

#*00 


2040 

00 

00 


LDY 

#*00 


204E— 

C4 

00 


CPY 

*00 


2050- 

D0 

04 


BNE 

*2056 


2052- 

E4 

0B 


CPX 

*0B 

Envoi sur 
le Minitel d'une 

2054- 

F0 

10 


BED 

*2066 

2056- 

B1 

06 


LDO 

<*06>.Y 

2058- 

85 

16 


STO 

*16 

zone mémoire 

2050- 

20 

67 

20 

JS R 

*2067 

06,07 : Départ 

205D- 

CS 


INY 

OA.OB : Longueur 

205E- 

D0 

EE 


BNE 

*204E 


2060- 

E6 

07 


INC 

*07 


2062- 

ES 



INX 



2063- 

4C 

4E 

20 

JM P 

*204E 


2066- 

60 



RTS 

___ 


.2057- 

80 



TXO 



2058- 

43 



PHO 



2069- 

98 



TYO 



2060— 

48 



PHO 



206B- 

OD 

81 

03 

LDO 

*0381 


20SE- 

29 

10 


OND 

#*10 

Sous-routine d'envoi 

2070- 

F0 

F9 


BED 

*206B 

d'un octet avec 

2072- 

05 

16 


LDO 

*16 

sauvegarde du contexte 

7074- 

SD 

80 

03 

STO 

*0380 

2077- 

68 



PLO 



2078- 

08 



TOY 



2079- 

68 



PLO 



2070- 

00 



TOX 



207B- 

60 



RTS 

— 


207C- 

207E- 

2030- 

09 

00 

20 

22 

21 

E9 

20 

LDO 
LDY 
JS R 

#*22 
#*21 
*20E9 _ 

Retournement du Moden 
et envoi porteuse 

2083- 

20 

FP 

20 

JS R 

*20FO ' 


2036- 

C9 

13 


CMP 

#*13 

Attente 

2088- 

D0 

F9 


BNE 

*2083 

2080- 

20 

FP 

20 

JS R 

*20FO 

CNX/FIN 

20SD- 

C9 

53 


CMP 

#*53 


203F- 

D0 

F2 


BNE 

*2083 



2091- 

09 

23 


LDO 

#*29 

1 

Aiguillages 

2093- 

00 

21 


LDY 

#*21 


Prise —Ecran 

2035- 

20 

E9 

20 

JS R 

*20E9 

J 

Clavier —Prise 

1:038- 

09 

35 


LDO 

#*35 



2090- 

00 

21 


LDY 

#*21 


Affichage message 

209C- 

20 

E3 

20 

JSR 

*20E9 

J 


209F- 

20 

FO 

20 

JSR 

*20FO 

1 

Attente barre espace 

2002— 

C9 

20 


CMP 

#*20 


2004- 

D0 

F9 


BNE 

*209F_ 

J 

Minitel 

2006- 

20 

12 

21 

JSR 

*2112 


Efface ligne & Minitel 

2009- 

60 



RTS 



Retour Basic 

2000- 

09 

8E 


LDO 

#*SE 

* 

Envoi message : 

20OC- 

00 

21 


LDY 

#*21 


"Fin de trensmission" 

20PE- 

20 

E9 

20 

JSR 

*20E9 


et déconnexion 

20B1- 

09 

DI 


LDO 

#*D1 


des deux Minitels. 

20B3- 

00 

21 


LDY 

#*21 



20B5— 

20 

E9 

20 

JSR 

*20E9 


Retour Basic 

20B8— 

60 



RTS 


- 


20B9- 

09 

62 


LDO 

#*62 

“ 

USR 

20BB— 

00 

21 


LDY 

#*21 


Affiche message 

20BD- 

20 

E9 

20 

JSR 

*20E9 


puis attend 

20C0- 

20 

FO 

20 

JSR 

*20FO 


Espace. CNX/FIN 

20C3- 

C9 

13 


CMP 

#*13 


ou SUITE 

20C5- 

D0 

0F 


BNE 

*20D6 


* Si espace, renvoi B 

20C7- 

20 

FO 

20 

JSR 

*20FO 


dans la variable 

20CO- 

C9 

43 


CMP 

#*43 


* Si CNX/FIN, renvoi 

20CC- 

D0 

02 


BNE 

*20D0 


- 1 dans la variable 

?0CE- 

F0 

10 


BED 

*20E0 


* Si suite, renvoi +1 

2OD0- 

C9 

49 


CMP 

#*43 


dans la variable 

20D2- 

D0 

EC 


BNE 

*20C0 


Sort par un JSR$IF24 

20D4- 

F0 

07 


BED 

«20DD 


(ATMOS) 

20D6- 

C9 

20 


CMP 

#*20 


ou par JSR$DF15 

20DS- 

D0 

E5 


BNE 

*20C0 


(ORIC-1) 

20DO- 

OS 

00 


LDO 

#*00 


(Rond flottant 

20DC- 

2C 

09 

FF 

BIT 

*FFOS 


le registre A) 

20DF- 

2C 

09 

01 

BIT 

*0109 


20E2- 

20 

24 

DF 

JSR 

*DF24 



20E5- 

20 

12 

21 

JSR 

*2112 



20E8- 

60 



RTS 


- 

SOUS PROGRAMMES: 

20E9- 

85 

02 


STO 

*02 


Envoi un messaqe 

20EB— 

84 

03 


ST Y 

*03 


ou une séquence dont 

?0ED— 

00 

00 


LDY 

#«00 


l'adresse est dans A( -] 

?0EF- 

B1 

02 


LDO 

(*02) 

Y 

et Y( + ). 

20F1- 

F0 

06 


BED 

*20F9 


La séquence doit se 

20F3- 

20 

05 

21 

JSR 

*2105 


terminer par un 00. 

20F6- 

CS 



INY 



20F 7- 

D0 

F6 


BNE 

*20EF 



20F9- 

60 



RTS 




2BF0- 

OD 

81 

03 

LDO 

*0381 



20FD— 

29 

08 


OND 

#*0S 


Sous-routine : reçoit un 

20F F— 

F0 

F9 


BED 

*20FO 


octet dans A. 

2101- 

OD 

80 

03 

LDO 

«0380 



2104- 

60 



RTS 




2105- 

48 



PHO 




2106- 

OD 

81 

03 

LDO 

*0381 


Sous-routine : envoi un 

2109- 

29 

10 


OND 

#*10 


octet mis dans A 

210B- 

F0 

F9 


BED 

*2106 



210D- 

68 



PLO 




210E— 

SD 

80 

03 

STO 

*0380 



2111- 

60 



RTS 




2112- 

09 

CS 


LDO 

#*CS 



2114- 

00 

21 


LDY 

#*21 


Efface ligne 0 Minitel. 

2116- 

20 

E9 

20 

JSR 

*20E9 


2119- 

60 



RTS 




2110- 

09 

BB 


LDO 

#*BB 



211C- 

00 

21 


LDY 

#*21 


Affiche "Page xx" 

211E- 

20 

E9 

20 

JSR 

*20E9 


2121- 

60 



RTS 





122 IB 39 6F 1B 39 68 00 1B _ 9o"9h— 
2120 3B 61 58 53 IB 3B 61 5B îaXS - ;** 
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.utilitaire 


-.J-,. 

51 

0C 

00 

1F 

40 

41 

IB 

51 

Q-30"Q 


-■ira 

IB 

4S 

20 

20 

20 

20 

20 

20 

"H 



2142 

20 

20 

20 

20 

20 

20 

20 

20 




2140 

54 

61 

70 

65 

70 

20 

45 

53 

Taos: 

ES 


1-152 

50 

41 

43 

45 

20 

20 

20 

20 

POCE 



2150 

20 

20 

20 

20 

20 

20 

20 

00 


“ 
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2182 

1F 

40 

41 

IB 

31 

20 

20 

45 

"30 Q 

*E 
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50 

30 

53 

75 

63 

74 

65 

SP:Su 
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2172 

20 

43 

46 

5S 

2F 

46 

43 

4E 

»CNX/ 

FIN 


2170 

20 

53 

74 

6F 

70 

20 

52 

45 

JStoo 

-*RE 


2182 

50 

45 

54 

30 

52 

65 

76 

6F 
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i l sa 

63 

72 

20 

00 

1F 

40 

41 

IB 

i r* 

30" 


2132 

51 

20 

20 

20 

20 

20 

20 

20 

0 



113a 

46 

63 

6E 

20 

64 

65 

20 

74 

F i Ti d 
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2102 

72 

61 

66 

73 

6D 

63 

73 

73 

rartsm 

i s s» 


: îoo 

63 

6F 

66 

26 

26 

2E 

20 

20 

• on.. 

. 


21B2 

20 

20 

20 

20 

20 

20 

20 

00 


~ 


. 1BO 

00 

1F 

40 
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50 

61 

67 

—au 
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65 

20 

30 

32 

0A 

00 

1F 

40 

€■ 02 _ 
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41 

1B 

51 

20 

12 

67 

00 

IB 
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s 


. 1D2 

33 

67 

00 

EO 

60 

EO 

EO 

60 
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THEORIC arrive au numéro 20 
avec ses fidèles lecteurs et abon¬ 
nés. A l'intention des plus "jeu¬ 
nes" (des moins expérimentés, 
aurions nous dû dire), nous avons 
récapitulé tout un tas de trucs et 
astuces qui vont paraître aux plus 
chevronnés bien connus mais... 
de l'indulgence, voyons ! Cette 
page est donc réservée aux débu¬ 
tants. 

MEMOIRE DISPONIBLE 

Pour connaître à tout instant, 
dans un programme, la quantité 
de mémoire disponible, il suffit 
d'écrire X = FRE(O). X contiendra 
alors le nombre d'octets encore 
utilisables. Un simple test sur 
cette variable évitera au pro¬ 
gramme de se planter par man¬ 
que de mémoire. 


DOUBLE UTILISATION DU “!" 

Quand on possède un drive, le ! 
est utilisé pour les commandes 
du DOS. Si l'on veut faire appel 
à un sous-programme ou à une 
nouvelle fonction Basic utilisant 
également le !, il suffit d'écrire : 

DOKE #2F5, adresse fonction 

pour "brancher" le ! sur la fonc¬ 
tion, ou : 

DOKE # 2F5, #400 (Jasmin) 

( # 4C4 Microdisc) 

pour revenir au DOS. 

PROGRAMME PROTEGE 

Pour bloquer le lancement auto¬ 
matique d'un programme Basic 
protégé et pouvoir le lister (ou le 
transférer sur disquette), il suffit, 
avant de le charger à partir de la 
cassette, de faire : 

POKE #500, # FF puis CLOAD 


Après le chargement, vous 
obtiendrez "SYNTAX ERROR". 
Il ne reste plus qu'à faire un POKE 
#500,0 pour pouvoir lancer le 
programme par RUN. 

SUPPRIMER CAPS 

Le message CAPS, qui signale 
que l'ORIC est en mode "majus¬ 
cules", peut être supprimé, sans 
forcer pour autant l'ORIC, en 
minuscules (bascule CTRL T). Il 
suffit de faire : 

POKE 48035,0 

La magie aidant, POKE 48035,7 
fera revenir le CAPS. On a tout 
simplement joué avec l'attribut 
couleur encre... 

TRUQUER LE RESET 

Le poussoir de RESET situé sous 
l'ORIC permet de reprendre, en 
principe, le contrôle du fonction¬ 
nement de la machine. Pour inter¬ 
dire à l'utilisateur la lecture du lis¬ 
ting, certains éditeurs adoptaient, 
au début de l'ORIC, l'astuce sui¬ 
vante : 

DOKE # IB, #F42D (ORIC-1) 
DOKE # IB, # F88F (ATMOS) 

L'appui sur RESET effectue alors 
une remise à zéro complète de la 
machine qui se retrouve dans le 
même état que si on venait de la 
mettre sous tension. 

Si l'on veut bloquer le RESET, 
sans pour autant vider la 
mémoire, on peut adopter l'as¬ 
tuce suivante : 

POKE # 22B,96 (ORIC-1) 

POKE #247,96 (ATMOS) 
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LES PIEDS DANS LE PI*ÂT 


C i 

est ce mois-ci que se termine notre programme FREDDY 
LEAPPY. Eh oui, tout a une fin... Arrêtons là les considérations 
sentimentales et donnons plutôt le menu. Nous allons faire 
clignoter les points que doit manger Freddy, et nous allons orches¬ 
trer l'ensemble des routines que nous avons étudiées jusqu'à présent. 


LA ROUTINE REDEF 

C'est elle qui fait clignoter les 
super-points que doit manger 
Freddy. Il faut tout d'abord "fil¬ 
trer" l'entrée dans cette routine, 
car on risque de voir clignoter les 
points à une vitesse trop impor¬ 
tante, et cela ne représenterait 
plus rien. C'est l'intérêt des lignes 
614 à 618, qui, en se servant 
d'une mémoire nommée RD, 
n'autorisent l'accès à cette rou¬ 
tine qu'une fois sur trois. Les 
lignes 619 et 620 remettent à 
zéro RD, pour le prochain accès. 
Le clignotement sera réalisé 
d'une manière fort simple. Au lieu 
de remplacer en mémoire tous les 
caractères "e" par d'autres 
caractères dont la redéfinition 
graphique serait différente, nous 
allons modifier directement la 
représentation graphique de ces 
caractères, dans la mémoire où 
elle est stockée. Le manuel de 
l'ORIC vous indique la façon de 
calculer cette adresse : 46080 
+ 8* le code ASCII du caractère 
à redéfinir. Appliquons cette for¬ 
mule à la lettre "e", code ASCII 
101, et nous trouvons 46888. Il 
suffira donc de faire alterner trois 
motifs dans ces cases mémoires 
pour donner une impression de 
clignotement. Ce sont d'ailleurs 
les lignes 621-630 qui jouent ce 
rôle. Suivant le valeur de RD2, on 
oriente le programme vers les 
lignes 631 ou 643 ou 654, qui 
redéfinissent donc le caractère 
"e". 

LA ROUTINE SUITE 

C'est elle qui orchestre le pro¬ 


gramme. Elle appelle, tour à tour, 
toutes les sous-routines que nous 
avons créées au cours des quel¬ 
ques mois que nous avons pas¬ 
sés ensemble. 

Elle commence par déplacer le 
monstres, vérifie que Freddy n'a 
pas été tué (lignes 812-814) ou 
qu'il n'a pas dévoré toutes les 
pastilles (lignes 815-817). Si 
aucune de ces deux conditions 
n'est remplie, il exécute la routine 
de REDEF, que nous venons de 
commenter. Commence ensuite 
une boucle de ralentissement 
(lignes 819 à 828) qui, comme 
son nom l'indique, ralentit l'en¬ 
semble du jeu. Vous pouvez 
essayer de modifier la valeur $ 13 
en ligne 827 afin d'accélérer ou 
de ralentir le jeu. Nous testons 
ensuite si la touche ESC a été 
pressée (pour le suicide...) et, 
dans le cas contraire, on repart au 
début... 

Voilà, c'est terminé, je vous ai 
détaillé entièrement le pro¬ 
gramme FREDDY LEAPPY, de 
manière approfondie et j'espère 
que cela vous aura permis de 
comprendre comment program¬ 
mer en Assembleur. Le pro¬ 
gamme proposé là est évidem¬ 
ment susceptible d'être nette¬ 
ment amélioré, mais j'ai préféré 
expliquer un programme un peu 
simple de par sa conception afin 
qu'il puisse être abordable par un 
grand nombre de lecteurs, les 
"pro" me le pardonneront volon¬ 
tiers (j'ose espérer... ). 

Au revoir à tous, et n'hésitez pas 
à envoyer à THEORIC vos plus 
belles réalisations... en Assem¬ 
bleur. 


NOTE 

En annexe, le listing des déclara¬ 
tions diverses et une routine per¬ 
mettant l'initialisation de toutes 
les mémoires est donné. Il per¬ 
mettra à ceux qui ont tapé les lis¬ 
tings chaque mois de posséder le 
listing source complet. 

Les lignes 1 à 86 ne seront pas 
publiées. Il s'agit de REM ! Entrez 
donc 86 lignes avec pour seule 
instruction le point virgule. Elles 
sont obligatoires. 


53A5 


611 ; 


53A5 


612 ; 

REDEF 

53A5 


613 ; 


53A5 

EE OB 4F 

614 REDEF 

INC RD 

53A8 

AD OB 4F 

615 

LDA RD 

53AB 

C9 03 

616 

CMP #3 

53AD 

FO 01 

617 

BEC! >1 

53AF 

60 

618 

RT5 

53B0 

A9 00 

619 >1 

LDA #G0 

53B2 

8D OB 4F 

620 

STA RD 

53E5 

EE OC 4F 

621 

INC RD2 

5JE8 

AD OC 4F 

622 

LDA RDI’ 

53BB 

C9 01 

623 

CMP #1 

53rD 

FO 2C 

624 

BEÙ >1 

53BF 

C9 03 

625 

CMP «3 

53C1 

FO 45 

626 

BEC >3 

53C3 

C9 02 

627 

CMP #2 

53C5 

FO 05 

628 

BEÙ >2 

53C7 

A9 00 

629 

LDA #0 

53C9 

8D 0C 4F 

630 

STA RD2 

53CC 

A9 00 

631 >2 

LDA #00 

53CE 

8D 28 B7 

632 

STA 46688 

53D1 

8D 29 B7 

633 

STA 46839 

53D4 

BD 2F B7 

634 

STA 46895 

53D7 

8D 2E B7 

635 

STA 46894 

53DA 

A9 1E 

636 

LDA 130 

53DC 

8D 2A B7 

637 

STA 46890 

53DF 

SD 2D B7 

638 

STA 46893 

53E2 

A9 12 

639 

LDA *13 

53E4 

8D 2B B7 

640 

STA 46891 

53E7 

8D 2C B7 

641 

STA 46892 

53EA 

60 

642 

RTS 

53EB 

A9 3F 

643 >1 

LDA *63 

53ED 

8D 28 B7 

644 

STA 46S88 
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53FC 

8D 

2F 

B7 

645 

STA 

46895 

53F3 

A9 

21 


646 

LOA 

•32 

53F5 

80 

29 

17 

647 

STA 

46SE9 

53F8 

80 

:a 

B7 

648 

STA 

46890 

53FB 

8D 

2B 

17 

649 

STA 

4639! 

53FE 

80 

2C 

B7 

650 

STA 

46892 

5401 

80 

20 

B7 

651 

STA 

466=3 

5404 

8D 

2E 

B7 

652 

STA 

46994 

5407 

60 



653 

RTS 


5408 

A9 

00 


654 >3 

LOA 

*0 

540A 

80 

28 

B7 

655 

STA 

46888 

540D 

8D 

29 

17 

656 

STA 

46889 

5410 

8D 

2A 

B7 

657 

STA 

46890 

5413 

8D 

20 

B7 

653 

STA 

46893 

5416 

8D 

2E 

B7 

659 

STA 

46894 

5419 

8D 

2F 

B7 

660 

STA 

46995 

541C 

A9 

OC 


661 

LOA 

#12 

541E 

80 

2B 

B7 

662 

STA 

46891 

5421 

8D 

2C 

B7 

663 

STA 

46892 

5424 

60 



664 

STS 



5000 

124 C/SX 

EOU 44F01 

5000 

125 C/DX 

ECU 44F02 

5000 

126 C II 

EOU 44F03 

5000 

127 C/H 

EQU *4F04 

5000 

128 TOUR 

EOU 44FQ5 

5000 

129 H/L 

EOU 44F06 

5000 

130 D/L 

EOU »4F07 

5000 

131 ETAGE 

EQU MF» 

5000 

132 SWAP 

EOU *4FQ9 

5000 

133 PAIR 

EOU 44FCA 

5000 

134 PD 

EOU 44F0B 

5000 

135 PD2 

EOU 44FDC 

5000 

13e LIS 

EOU 44F0D 

5000 

137 COL 

EOU 44F0E 

5000 

138 Tlfit 

ECU *4F0F 

5000 

139 MONSTRE 

EOU 44F10 

5000 

140 RESL 

EOU 44F11 

5000 

141 PESH 

EOU 44F12 

5000 

142 X 

EOU 44F13 

5000 

143 Y 

EOU 44F14 

5000 

144 L 

EOU 44F15 

5000 

145 H 

EOU 44F16 

5000 

146 XFLA6 

EQU 44FI7 

5000 

147 XM 

EOU 44F18 

5000 

148 YM 

EOU 44F19 

5000 

149 NPAS 

EOU 44F1A 

5000 

150 NPAST 

EOU 44F1B 

5000 

151 NCPAST 

EQU 44FIC 


FIN DE LA PASSE 1 

Fin oes lat»ls:445C7 
















ooco 


37 

LST 








oood 


89 

ORG 44=50 








4F50 

A9 45 

89 INI 

LDA #445 

INITIAL. 


552F 


806 


4F52 

85 00 

90 

STA 400 



552F 


806 ; 



4F54 

85 02 

91 

STA 402 



552F 


807 ; 

FIN DE LA BOUCLE 


4F56 

A9 BD 

92 

LDA #4BD 


- 

552F 


808 i 



4F5B 

85 01 

93 

STA 401 



552F 


809 ; «HtHWHmiiixwttimt 


4F5A 

85 03 

94 

STA 403 



552F 

20 5F 54 

810 SUITE 

JSR SSN 


4F5C 

A9 01 

95 

LDA #01 



5532 

AD El BF 

811 

LDA 4BFE1 


4F5E 

BD 00 4F 

96 

STA CTRL 



5535 

C9 01 

812 

CMP #1 


4F61 

A9 00 

97 

LDA #00 



5537 

00 01 

813 

BNE -l 


4F63 

BD 07 4F 

'98 

STA D/L 



5539 

60 

814 

RTS 


4F66 

A9 28 

99 

LDA #40 



553A 

C9 02 

815 >1 

CMP #2 


4F68 

SD 06 4F 

100 

STA H/L 



553C 

DO 01 

816 

BNE >1 


4F6B 

A9 37 

101 

LDA «437 


— 

553E 

60 

817 

RTS 


4F6D 

85 04 

102 

STA 40** 



553F 

20 A5 53 

818 >1 

JSR REDEF 


4F6F 

A9 BF 

103 

LDA #4BF 



5542 

A2 00 

819 

LDX #40 

;F1N DE LOOP 

4ni 

85 05 

104 

STA 405 



5544 

AO 00 

820 >2 

LDY «40 


4P3 

A9 00 

105 

LDA #00 



5546 

EA 

821 >1 

NOP 


4F75 

BD 08 4F 

106 

STA ETAGE 



5547 

EA 

822 

NOP 


4F78 

BD OA 4F 

107 

STA PAIR 



5548 

EA 

823 

NOP 


4F7Î 

BD OB 4F 

108 

STA RD 



5549 

C8 

824 

INY 


4F7E 

8D OC 4F 

109 

STA RD2 



554A 

DO FA 

825 

BNE <1 


4F81 

A9 3C 

110 

LDA «60 



554C 

E8 

826 

INX 


4F83 

85 06 

111 

STA 06 



554D 

EO 13 

827 

CPX #413 


4F85 

85 08 

112 

STA 08 



554F 

DO F3 

828 

BNE <2 


4F87 

A9 BE 

113 

LDA #4F£ 



5551 

AD 08 02 

829 

LDA 4208 


4F89 

85 07 

114 

STA 07 



5554 

C9 A9 

830 

CMP #4A9 


4F8B 

85 09 

115 

STA 09 



5556 

DO 01 

831 

BNE >1 


4FBD 

A9 00 

116 

LDA #00 



5558 

60 

832 

RTS 


4F8F 

8D El 2F 

117 

STA 4BFE1 



5559 

4C 00 50 

833 >1 

JMP DEBUT 


4F92 

60 

118 

RTS 








4F93 


119 i 




FIN DE LA PASSE 2 




4F93 


120 ;»wh 

C’EST PARTI !•!! »»«** 








4F93 


121 ; 









4F93 


122 

ORG 45000 








5090 


123 CTRL 

EOU 44F00 

MAIN LOOP 














FIN 

= 4555C 




























PETITES ANNONCES 


La plaça réaarvéa aux patltaa annonças est 
limités. En conséquanca. caNas-ci passant 
dans laur ordrs d'arrivés. Par contra. Iss pstl- 
tss annoncsa fartsluss sont systématlqua- 
msnt rsjstéss .. Ds mémo, commsll sst psu 
probabls qu'il sxlsts dss "généraux dons- 
tsurs" ds matérlsls ou ds logidsls. Iss pstl- 
tas annoncsa faisant appsl à cas philantro- 
pss ns ssront Inséréss qus si la plaça llbra 
la par mat 

Ssront rsfuaéss tout sa Iss annonças visant 
à vsndrs ou échangar dss listas ou copias ds 
logidsls non garantis "d’orlglns", ainsi qus 
tout* annonça Incitant au piratags. 

En conséquanca. réfléchis**! blsn avant 
d'snvoyar vos tsxtas. 

Las pstltaa annonças doivsnt impérativement 
nous parvenir sur la grilla (découpés ou pho¬ 
tocopiés). la texte étant rédigé à raison d'un 
caractère par casa. 

Enfin, toute annonce non accompagnés de 

timbras ne sera pas insérée. 

Cause abandon activité, vends combinaison plan 
che à voile absolument neuve : 250 F. D 
BONOMO. tél 99 52.98 11 


Vends ATMOS + moniteur + magnéto + logiciels 
+ meuble + livres 4- carte Eurêka 4- joystick : 
2500 F. Inter CGV Pén-sec. : 300 F. Tél.: 
30.35.83.26. 

Cherche imp. MCP 40 hors usage remb. frais et 
donne K7 Xénon 3 en échange. Tél.: 64.21.34 90 
le soir. Gérard. Merci. 

Vends Microdisc et Sedoric sous garantie 
(21.01.86) état neuf 4- manuel. Prix à débattre. 
Tél.: 69 21.29.66 après 19 h. 

Vends ORIC-1 : 300 F. "Speak Easy" synthé + 
prog 27 k: 400 F. Logiciels 1/2 prix + port. Tél.: 
85.84.93.16. 

Vends modem Digitelec pour ORIC ATMOS avec 
logiciel : 1000 F. Tél.: 48.54.22.35 demander 
Michel. 


Vends ORIC-ATMOS + 6 livres + 18 cassettes 
(Aigle d'Or, Ile Maudite). Le tout acheté en juin 
1985 : 2000 F. 

Cherche vendeur d'une interface prog. joystick. 
Offre jusqu'à 425 F. Tél : 39.74.76.33 après 17 h. 

Vends progamme d'accentuation française pour 
écran et imprimantes du logiciel AUTHOR. 100 % 
langage machine : 80 F comprenant : cassette, 
notice, lettres adhésives. Notice seule contre deux 
timbres à 2,20 F. J.P. SUAU. 13 square Protis, 
13002 MARSEILLE. 

Possesseur ATMOS recherche THEORIC 1. 2. 3, 
5 et 7. Echange chaque THEORIC contre 4 jeux. 
Ecrivez-moi pour me dire les numéros que vous 
avez ; je vous renverrai la liste. Gilles LAUX, 3 allée 
des Coquelicots, 57310 GUENANGE. 

Vends ultra images Arsène Lapin - Dnvers tous. 
Adapt. N° 1 Styx, bon état, le tout : 350 F. Tél.: 
89.58 74 40 (HR). 

Vends ou échange adapt. prog. commerce ORIC- 
ATMOS adapté Jasmin 2. Hervé MIGNOT, tél. (1) 
30 64.51.16 

Vends ORIC-1 ROM ORIC + ROM ATMOS + 
microdisc 4- 50 jeux et utilitaires sur K7 et dis 
quette : 2800 F. cause achat Téléstrat Tél.: 
20 94 03.65 

Vends Vortex (traitement de texte) : 140 F. For¬ 
mule 1 : 80 F Hyperspace 4 : 60 F pour ORIC 
ATMOS. Tél.: 77.23.37.45 

Vends ATMOS 48 k 4- interrupteur 4- matériel péri 
tel 4- jeux + alim. 9 V neuve + carte manette : 
1800 F. Tél.: (1) 46.21.33.12 après 19h30 

Vends imprimante GP 100 - Mark II (sans cordon) : 
1000 F. M DEPRET, 10 rue des Martyrs de 
Soweto. 51000 CHALONS/MARNE. 

Vends ORIC ATMOS + lecteur + adapt. de prise 
péritel 4- 200 jeux 4- livres : 2000 F. Tél.: 
30.34.15.16 après 18h. 

ORIC ATMOS cherche contacts pour échanges sur 
Toulouse. Patrie FROMENT, 1 rue Cordeau Dany, 
31200 TOULOUSE, tél.: 61.47.49 37. 


Vends ORIC 1 48 k (12/84) + alim. + pôritel ♦ 
livres 4- 10 K7 4- synthé : 2850 F. Jim BLEY, Le 
Flore B1. Av. Martyrs Résistance, 06600 ANTIBES. 

Vends GP 100A 4 Supercopy écran 4- Vortext 
(trait, texte) + papier: 1600 F. Tél.: 87.96.02.26 
le soir. 

Vends ATMOS peu servi 4- lecteur K7 4- 12 livres 
4- K7. Valeur 4300 F (factures), vendu 2000 F. M. 
GAILLARDOT. 37290 YZEURES SUR CREUSE, 
tél.: 47 94 55 41 

Vends Jasmin 2 avec assembleur, Easytext, 
Tableur Multifich. Livre du TDOS. 10 disquettes 
vierges 3000 F. Tél. 48.20.61.30 M. DURVILLE. 

Poss. ATMOS cherche contact région Le Mans pour 
Synth. vocal (Micro Système) ME A 8000. Tél.: 
43.25.62.99 après 19h. 

ATMOS et JASMIN cherche logiciels Claude 
LEGRAND. 3 place du marché. 77400 LAGNY, tél.: 
64 30.12 63. 

Achète revues THEORIC n° 5 et 13, reuve 
MICR'ORIC n° 2, revues CPC 1. 2, 3. revue ORIC 
OWNER. 1, 2. 3. M. Gauthier Sublett. tél.: 
57.74 69.56 

ATMOS cherche correspondant(e) pour échanges 
prog. et idées Rhône Alpes. Tél.: 74.03.84.80. 

STOP ! Améliorez vos prog. jeux ou anim. graph. 
grâce â système DAO. C. GAYRAUD, 32 av de Vil- 
landry. 44470 CARQUEFOU. tél.: 40.50.83.83. 

Echange EASYTEXT et/ou Jasmincalc contre Mul 
tifich, FortH, Assembleur, Origraph ou autre logi¬ 
ciel Jasmin. M. GOBART. tél.: 64.34.28.68. 

Possess. ATMOS cherche contacts pour échanges 
idées et logiciels. A RUEL. La Suchôre. 43400 
CHAMBON SUR LIGNON 

Vends ATMOS + 60 prog. + interface manette 4- 
manette 4- Easytext 4- 5 disquettes Jasmin, le tout 
ou séparément. Tél.: 79.32.50.36 le soir. 

Urgent, vends ATMOS (8/84. tbe) 4- câbles 4- 
livres 4- revues (THEORIC) 4- moniteur couleur 16" 
(tout neuf) 4- jeux. Prix à débattre, tél.: 6373070 


i AN NONCEZ-VOUS ! 

les petites annonces et les messages 



Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 
SORACOM, La Haie de Pan, 35170 BRUZ 
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Electronique sur AMSTRAD 
P. BEAUFILS 
Electronique sur MSX 

P. BEAUFILS 


TECHNIQUE 


Propagation des ondes, tome 1 

Serge CANIVENC, F8SH 

Un univers à découvrir 165 F 

Propagation des ondes, tome 2 

Serge CANIVENC, F8SH 

Cet ouvrage encore plus important 

traite des tous les modes de 

propagation en UHF 253 F 

Technique de le BLU — 2* édition 

G. RICAUD, F6CER 

Approche pratique de la BLU 95 F 

Concevoir un émetteur expérimental 

P. LOGLISCI 

Concevoir soi-même son émetteur ! 69 F 

Synthétiseurs de fréquence 

M. LEVREL 

Se familiariser avec les 

nouvelles techniques 125 F 

Interférences radio — des solutions 

F. MELLET et K. PIERRAT 

Des solutions à vos problèmes 

de brouillage 35 F 

Télévisions du monde 

P. GODOU 

Un catalogue de mires 

et une longue expérience 

mis à votre disposition par 

l'auteur 110 F 

Le radioamateur et la carte QSL 

Préfixes et QSL-managers et 

bureaux dans le monde 

72 pages 15 F 

QSO en radiotéléphonie 
français-anglais 

L. SIGRAND 

Un aide-mémoire pour des 

QSO plus faciles 25 F 

Cours de lecture au son 

Les cassettes avec livret 195 F 

La réception des satellites météo 

Loïc Kuhlmann 

Photos, schémas, montages 

Comment réaliser une station 145 F 

MEGAHERTZ broché n° 3 

(de 14 à 19) 70 F 


Communiquez avex ZX81 
E. DUTERTRE et D. B0N0M0 
Programmes et interfaces 
2* édition 


90 F. 


Communiquez avec ORIC-1 et ATMOS 

E. DUTERTRE, D. B0N0M0 145 F 

Mystères du Laser 

Denis BOURQUIN 

Connaître à fond sa machine 148 F 

Mystères d'Alice ou la pratique du 6803 
A. BONNEA’JD 

Une des meilleures critiques de la presse 151 F 

Mieux programmer sur ATMOS 
M, ARCHAMBAULT 

Tout un programme 110 F 

Interfaces pour ORIC-1 et ATMOS 
M. LEVREL 

Rendre son ORIC encore plus 

performant 59 F 

Apprenez l'électronique sur ORIC ATMOS 
P. BEAUFILS 

Mieux voir les phénomènes électroniques 110 F 


COLLECTION 

POCHE 


Jouez avec Hector 

E. DUTERTRE 

48 F 

Jouez avec Aquarius 

L. GENTY 

45 F 

Naviguez sur ORIC et ATMOS 

E. JACOB et J. PORTELLI 

45 F 

Extensions du ZX81 

E. DUTERTRE 

48 F 

Jouez avec AMSTRAD 

KERLOCH 

48 F 

MEGAHERTZ Hors Série 

Informatique 

30 F 

Transat Terre Lune 

Préface de 0. BAUDRY 

20 F 

Manœuvre du catamaran de croisière 

SEGALA 

45 F 

Jouez avec M05 

E. DUTERTRE 

Collection poche 

40 F 

PRESSE 



Communiquez avec AMSTRAD 

D. B0N0M0 et E. DUTERTRE 

90 F 

CPC Revue AMSTRAD 

Le numéro 

19 F 

Mieux programmer sur AMSTRAD 
M. ARCHAMBAULT 

85 F 

(Mensuel) abonnement 1 an . 

.. 180 F 

Plus loin avec le X07 


THEORIC Revue ORICIATMOS 


Michel GANTIER 


Le numéro 

30 F 

Un titre pour un programme ! 

85 F 

(Mensuel) abonnement 1 an 

270 F 



Réédition des programmes du livre 

Communiquez avec votre ZX81 150 F 

Cassette programmes Communiquez avec AMSTRAD 190 F 
Disquette programmes Communiquez avec AMSTRAD 250 F 

Cassette programmes Communiquez avec ORIC et ATMOS 190 F 


Précisez ORIC-1 ou ATMOS à la commande. 


Adressez vos commandes à : 
SORACOM, La Haie de Pan, 35170 BRUZ 

(Règlement comptant à la commande + port 10 %). 

















ENFIN DISPONIBLE ! 

Nous vous l'annoncions depuis longtemps 
Vous l'attendiez impatiemment. 



ATTENTION ! 

Les abonnés à THEORIC 
recevront une offre spéciale 
à prix très réduit... 


Prix : 151 F + 9 F de port. 




LE LIVRE 
QUE TOUT 
PROGRAMMEUR 
f Ol/f AVANCE 

DOIT POSSEDER 

mm 

35170 BRUZ 


